(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    573221,      12989]
NotebookOptionsPosition[    560417,      12585]
NotebookOutlinePosition[    560767,      12600]
CellTagsIndexPosition[    560724,      12597]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " Code for \"Influence without Bribes: A Non-Contracting Model of Model of \
Campaign Giving and Policymaking\""
}], "Title",
 CellChangeTimes->{{3.5119047079514685`*^9, 3.5119048040910816`*^9}, {
  3.5119139767793117`*^9, 3.5119139938430176`*^9}}],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 3}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 5}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.511903772985982*^9}],

Cell[CellGroupData[{

Cell["\<\
Code For Numerical Calculations and Graphics underlying Proposition 4 (i.e., \
the effect of changes in the variance of the distribution of incumbent types \
on interest group influence) and Figure 3\
\>", "Subtitle",
 CellChangeTimes->{{3.511903755484232*^9, 3.511903764232106*^9}, 
   3.511904816234296*^9, {3.5119049646661377`*^9, 3.51190499298697*^9}}],

Cell[CellGroupData[{

Cell["Primitives of for Proof of Proposition 4", "Section",
 CellChangeTimes->{{3.483482284842848*^9, 3.483482293602724*^9}, {
  3.511904833804053*^9, 3.51190483887656*^9}}],

Cell["\<\
In this worksheet we do simulations for the baseline model in which election \
outcomes depend solely upon campaign outlays.  The function r that translates \
interest group giving into the incumbent's probability of reelection is:\
\>", "Text",
 CellChangeTimes->{{3.4832859526365013`*^9, 3.483285988733111*^9}, {
  3.51190586999306*^9, 3.5119058899510603`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"r", "[", 
    RowBox[{"di_", ",", "dc_"}], "]"}], "=", 
   FractionBox[
    RowBox[{"di", "+", "ki"}], 
    RowBox[{"dc", "+", "di", "+", "kc", "+", "ki"}]]}]}]], "Input",
 CellChangeTimes->{{3.483286234291664*^9, 3.483286276730908*^9}, 
   3.4833739864397874`*^9, {3.4833741502161636`*^9, 3.4833741560097427`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"di", "+", "ki"}], 
  RowBox[{"dc", "+", "di", "+", "kc", "+", "ki"}]]], "Output",
 CellChangeTimes->{3.4832862779070253`*^9, 3.483374157161858*^9, 
  3.4854544318856096`*^9, 3.4995336772225876`*^9}]
}, Open  ]],

Cell["\<\
The interest group's (IG) problem is the following (where \[Mu]i and \[Mu]c \
denote the probabilities assigend to the incumbent and challenger sharing the \
group's preference for policy x):\
\>", "Text",
 CellChangeTimes->{{3.4832862101502504`*^9, 3.483286220431278*^9}, {
  3.51190590311806*^9, 3.51190594682806*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ig", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"r", "[", 
      RowBox[{"di", ",", "dc"}], "]"}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{"\[Mu]i", "-", "\[Mu]c"}], ")"}], "*", "tg"}], "-", "di", "-", 
   "dc"}]}]], "Input",
 CellChangeTimes->{
  3.483285989737211*^9, {3.483286199219157*^9, 3.4832862294721823`*^9}, {
   3.4832864389851313`*^9, 3.4832864979880314`*^9}, {3.483286553070539*^9, 
   3.4832865592071524`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "dc"}], "-", "di", "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"di", "+", "ki"}], ")"}], " ", "tg", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Mu]c"}], "+", "\[Mu]i"}], ")"}]}], 
   RowBox[{"dc", "+", "di", "+", "kc", "+", "ki"}]]}]], "Output",
 CellChangeTimes->{3.483286499657198*^9, 3.4995336787807436`*^9}]
}, Open  ]],

Cell["The first-order condition (FOC)  of IG problem w.r.t. di:", "Text",
 CellChangeTimes->{{3.483481497465118*^9, 3.483481510441416*^9}, {
  3.5119059351490602`*^9, 3.51190595847506*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{"ig", ",", "di"}], "]"}]], "Input",
 CellChangeTimes->{{3.483286516535886*^9, 3.4832865192931614`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"di", "+", "ki"}], ")"}], " ", "tg", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Mu]c"}], "+", "\[Mu]i"}], ")"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"dc", "+", "di", "+", "kc", "+", "ki"}], ")"}], "2"]], "+", 
  FractionBox[
   RowBox[{"tg", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Mu]c"}], "+", "\[Mu]i"}], ")"}]}], 
   RowBox[{"dc", "+", "di", "+", "kc", "+", "ki"}]]}]], "Output",
 CellChangeTimes->{3.4832865211383457`*^9}]
}, Open  ]],

Cell["FOC of IG problem w.r.t. dc:", "Text",
 CellChangeTimes->{{3.4834815658039513`*^9, 3.483481572147586*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.483307124641735*^9, 3.4833071248237534`*^9}, {
  3.4834815741887894`*^9, 3.4834815747648473`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{"ig", ",", "dc"}], "]"}]], "Input",
 CellChangeTimes->{{3.483286530554288*^9, 3.483286532957528*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"di", "+", "ki"}], ")"}], " ", "tg", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Mu]c"}], "+", "\[Mu]i"}], ")"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"dc", "+", "di", "+", "kc", "+", "ki"}], ")"}], 
    "2"]]}]], "Output",
 CellChangeTimes->{3.483286533619594*^9}]
}, Open  ]],

Cell["Solving FOC of IG problem w.r.t. di:", "Text",
 CellChangeTimes->{{3.4834815922765985`*^9, 3.483481600260397*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "1"}], "-", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"di", "+", "ki"}], ")"}], " ", "tg", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "\[Mu]c"}], "+", "\[Mu]i"}], ")"}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"di", "+", "kc", "+", "ki"}], ")"}], "2"]], "+", 
     FractionBox[
      RowBox[{"tg", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "\[Mu]c"}], "+", "\[Mu]i"}], ")"}]}], 
      RowBox[{"di", "+", "kc", "+", "ki"}]]}], "\[Equal]", "0"}], ",", "di"}],
   "]"}]], "Input",
 CellChangeTimes->{{3.483286655419773*^9, 3.4832866725644875`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"di", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "kc"}], "-", "ki", "-", 
      SqrtBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "kc"}], " ", "tg", " ", "\[Mu]c"}], "+", 
        RowBox[{"kc", " ", "tg", " ", "\[Mu]i"}]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"di", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "kc"}], "-", "ki", "+", 
      SqrtBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "kc"}], " ", "tg", " ", "\[Mu]c"}], "+", 
        RowBox[{"kc", " ", "tg", " ", "\[Mu]i"}]}]]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.4832866734395747`*^9}]
}, Open  ]],

Cell["\<\
At an interior solution, we take the second solution (since group's spending \
must be non-negative.\
\>", "Text",
 CellChangeTimes->{{3.4834816303264027`*^9, 3.4834816566640368`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"-", "kc"}], "-", "ki", "+", 
    SqrtBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "kc"}], " ", "tg", " ", "\[Mu]c"}], "+", 
      RowBox[{"kc", " ", "tg", " ", "\[Mu]i"}]}]]}], "]"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.4832870712063475`*^9, 3.483287077941021*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "kc"}], "-", "ki", "+", 
  SqrtBox[
   RowBox[{
    RowBox[{"-", "kc"}], " ", "tg", " ", 
    RowBox[{"(", 
     RowBox[{"\[Mu]c", "-", "\[Mu]i"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.483287078562083*^9}]
}, Open  ]],

Cell["Solving FOC of IG problem w.r.t. dc:", "Text",
 CellChangeTimes->{{3.4834816739197617`*^9, 3.483481682584628*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", "    ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "1"}], "-", 
     FractionBox[
      RowBox[{
       RowBox[{"(", "ki", ")"}], " ", "tg", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "\[Mu]c"}], "+", "\[Mu]i"}], ")"}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"dc", "+", "kc", "+", "ki"}], ")"}], "2"]]}], " ", "\[Equal]",
     "0"}], ",", "dc"}], "                                             ", 
  "]"}]], "Input",
 CellChangeTimes->{{3.4832866844016705`*^9, 3.483286719430173*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dc", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "kc"}], "-", "ki", "-", 
      SqrtBox[
       RowBox[{
        RowBox[{"ki", " ", "tg", " ", "\[Mu]c"}], "-", 
        RowBox[{"ki", " ", "tg", " ", "\[Mu]i"}]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"dc", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "kc"}], "-", "ki", "+", 
      SqrtBox[
       RowBox[{
        RowBox[{"ki", " ", "tg", " ", "\[Mu]c"}], "-", 
        RowBox[{"ki", " ", "tg", " ", "\[Mu]i"}]}]]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.483286721124343*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"-", "kc"}], "-", "ki", "+", 
    SqrtBox[
     RowBox[{
      RowBox[{"ki", " ", "tg", " ", "\[Mu]c"}], "-", 
      RowBox[{"ki", " ", "tg", " ", "\[Mu]i"}]}]]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4832870904472713`*^9, 3.4832870994381704`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "kc"}], "-", "ki", "+", 
  SqrtBox[
   RowBox[{"ki", " ", "tg", " ", 
    RowBox[{"(", 
     RowBox[{"\[Mu]c", "-", "\[Mu]i"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.483287100273254*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.51191132994283*^9, 3.5119113378448296`*^9}}],

Cell["\<\
Note, if IG is to offer a positive donation to the incumbent when she selects \
policy x, the derivative of IG optimization problem at (0,0) must be positive \
w.r.t. di (as IG problem is concavie in di and convex in dc)\
\>", "Text",
 CellChangeTimes->{{3.51191135880383*^9, 3.51191140917683*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\n", 
  RowBox[{
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"-", "1"}], "-", 
     FractionBox[
      RowBox[{
       RowBox[{"(", "ki", ")"}], " ", "tg", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "\[Mu]c"}], "+", "\[Mu]i"}], ")"}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"kc", "+", "ki"}], ")"}], "2"]], "+", 
     FractionBox[
      RowBox[{"tg", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "\[Mu]c"}], "+", "\[Mu]i"}], ")"}]}], 
      RowBox[{"kc", "+", "ki"}]]}], "]"}], "\n", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["kc", "2"], "+", 
      SuperscriptBox["ki", "2"], "+", 
      RowBox[{"kc", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "ki"}], "+", 
         RowBox[{"tg", " ", 
          RowBox[{"(", 
           RowBox[{"\[Mu]c", "-", "\[Mu]i"}], ")"}]}]}], ")"}]}]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], "\n"}]}]], "Input",
 CellChangeTimes->{{3.5119112677368145`*^9, 3.51191126883683*^9}, {
  3.5119113159838295`*^9, 3.51191132243983*^9}}],

Cell["\<\
We now characterize the interest group's posterir about the probability the \
incumbent prefers policy x upon observing the incumbent select policy x given \
that the incumbent's strategy is characterize by cutpoint c.  Note we are \
assuming that the incumbent's type is drawn from a normal distribution with \
mean m and variance v:\
\>", "Text",
 CellChangeTimes->{{3.4834818876011276`*^9, 3.483481923843752*^9}, 
   3.48348196062843*^9, {3.51190612334606*^9, 3.51190614676906*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"\[Mu]ix", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"CDF", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"m", ",", "v"}], "]"}], ",", "0"}], "]"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"CDF", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"m", ",", "v"}], "]"}], ",", "c"}], "]"}]}], 
     ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4832876460538263`*^9, 3.483287665558777*^9}, {
   3.4832895172619286`*^9, 3.483289599393141*^9}, 3.4832897921934185`*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"1", "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"Erf", "[", 
       FractionBox["m", 
        RowBox[{
         SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
  RowBox[{"1", "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "-", 
      RowBox[{"Erf", "[", 
       FractionBox[
        RowBox[{"c", "-", "m"}], 
        RowBox[{
         SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]], "Output",
 CellChangeTimes->{3.4832896076529665`*^9, 3.483289794873687*^9, 
  3.485454455005106*^9, 3.4995336882216873`*^9}]
}, Open  ]],

Cell["\<\
In any equilibrium, the interest group places positive probability on the \
incumbent sharing its prefernce upon observing policy y selected:\
\>", "Text",
 CellChangeTimes->{{3.4834819360909767`*^9, 3.483481956660033*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Mu]iy", "=", "0"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.4832897777149715`*^9, 3.483289801145314*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.4832898019353933`*^9, 3.4854544589363565`*^9, 
  3.499533692115077*^9}]
}, Open  ]],

Cell["\<\
We now characterize the itnerest group's repsective equilibrium donations to \
the incumbent and the challenger when x is chosen and the cutpoint of the \
incumbent's strategy is c:\
\>", "Text",
 CellChangeTimes->{{3.483481994941861*^9, 3.4834820167990465`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"dix", "=", 
   RowBox[{"Piecewise", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "kc"}], "-", "ki", "+", 
         SqrtBox[
          RowBox[{
           RowBox[{"-", "kc"}], " ", "tg", " ", 
           RowBox[{"(", 
            RowBox[{"\[Mu]c", "-", "\[Mu]ix"}], ")"}]}]]}], ",", "    ", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["kc", "2"], "+", 
            SuperscriptBox["ki", "2"], "+", 
            RowBox[{"kc", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "ki"}], "+", 
               RowBox[{"tg", " ", 
                RowBox[{"(", 
                 RowBox[{"\[Mu]c", "-", "\[Mu]ix"}], ")"}]}]}], ")"}]}]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], " ", ">", "0"}]}], 
       "            ", "}"}], ",", 
      RowBox[{"{", "  ", 
       RowBox[{"0", ",", "       ", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["kc", "2"], "+", 
            SuperscriptBox["ki", "2"], "+", 
            RowBox[{"kc", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "ki"}], "+", 
               RowBox[{"tg", " ", 
                RowBox[{"(", 
                 RowBox[{"\[Mu]c", "-", "\[Mu]ix"}], ")"}]}]}], ")"}]}]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], "  ", "\[LessEqual]", 
         "0"}]}], "    ", "}"}]}], " ", "}"}], " ", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.483289807426942*^9, 3.4832898494751463`*^9}, {
  3.483289886446843*^9, 3.4832898885500536`*^9}, {3.483289958730071*^9, 
  3.483289986075805*^9}, {3.483290115066703*^9, 3.483290123609557*^9}, {
  3.483290191036299*^9, 3.4832901937325687`*^9}}],

Cell[BoxData[
 RowBox[{"\[Piecewise]", GridBox[{
    {
     RowBox[{
      RowBox[{"-", "kc"}], "-", "ki", "+", 
      SqrtBox[
       RowBox[{
        RowBox[{"-", "kc"}], " ", "tg", " ", 
        RowBox[{"(", 
         RowBox[{"\[Mu]c", "-", 
          FractionBox[
           RowBox[{"1", "+", 
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"Erf", "[", 
                FractionBox["m", 
                 RowBox[{
                  SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
           RowBox[{"1", "+", 
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "-", 
               RowBox[{"Erf", "[", 
                FractionBox[
                 RowBox[{"c", "-", "m"}], 
                 RowBox[{
                  SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
         ")"}]}]]}], 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["kc", "2"], "+", 
         SuperscriptBox["ki", "2"], "+", 
         RowBox[{"kc", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "ki"}], "+", 
            RowBox[{"tg", " ", 
             RowBox[{"(", 
              RowBox[{"\[Mu]c", "-", 
               FractionBox[
                RowBox[{"1", "+", 
                 RowBox[{
                  FractionBox["1", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
                RowBox[{"1", "+", 
                 RowBox[{
                  FractionBox["1", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
              ")"}]}]}], ")"}]}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
    {"0", 
     TagBox["True",
      "PiecewiseDefault",
      AutoDelete->False,
      DeletionWarning->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.84]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}]}]], "Output",
 CellChangeTimes->{3.48329012563476*^9, 3.483290202561452*^9, 
  3.485454462852007*^9, 3.49953369444631*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dcx", "=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "kc"}], "-", "ki", "+", 
        SqrtBox[
         RowBox[{"ki", " ", "tg", " ", 
          RowBox[{"(", 
           RowBox[{"\[Mu]c", "-", "\[Mu]ix"}], ")"}]}]]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          RowBox[{"ki", " ", "tg", " ", 
           RowBox[{"(", 
            RowBox[{"\[Mu]c", "-", "\[Mu]ix"}], ")"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], "     ", ">", "0"}]}], 
      "            ", "}"}], ",", 
     RowBox[{"{", "  ", 
      RowBox[{"0", ",", "       ", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          RowBox[{"ki", " ", "tg", " ", 
           RowBox[{"(", 
            RowBox[{"\[Mu]c", "-", "\[Mu]ix"}], ")"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], "  ", "\[LessEqual]", 
        "0"}]}], "    ", "}"}]}], " ", "}"}], " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.483290128178014*^9, 3.4832901871399097`*^9}, {
  3.483290222597455*^9, 3.4832902260307984`*^9}}],

Cell[BoxData[
 RowBox[{"\[Piecewise]", GridBox[{
    {
     RowBox[{
      RowBox[{"-", "kc"}], "-", "ki", "+", 
      SqrtBox[
       RowBox[{"ki", " ", "tg", " ", 
        RowBox[{"(", 
         RowBox[{"\[Mu]c", "-", 
          FractionBox[
           RowBox[{"1", "+", 
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"Erf", "[", 
                FractionBox["m", 
                 RowBox[{
                  SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
           RowBox[{"1", "+", 
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "-", 
               RowBox[{"Erf", "[", 
                FractionBox[
                 RowBox[{"c", "-", "m"}], 
                 RowBox[{
                  SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
         ")"}]}]]}], 
     RowBox[{
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       FractionBox[
        RowBox[{"ki", " ", "tg", " ", 
         RowBox[{"(", 
          RowBox[{"\[Mu]c", "-", 
           FractionBox[
            RowBox[{"1", "+", 
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                RowBox[{"Erf", "[", 
                 FractionBox["m", 
                  RowBox[{
                   SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
            RowBox[{"1", "+", 
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "-", 
                RowBox[{"Erf", "[", 
                 FractionBox[
                  RowBox[{"c", "-", "m"}], 
                  RowBox[{
                   SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], ")"}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
    {"0", 
     TagBox["True",
      "PiecewiseDefault",
      AutoDelete->False,
      DeletionWarning->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.84]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}]}]], "Output",
 CellChangeTimes->{{3.483290206899885*^9, 3.483290229638159*^9}, 
   3.4854544686240807`*^9, 3.499533696406506*^9}]
}, Open  ]],

Cell["\<\
We now characterize the interest group's respective equilibrium donations to \
the incumbent and the challenger when y is chosen and the cutpoint of the \
incubment's strategy is c:\
\>", "Text",
 CellChangeTimes->{{3.4834820664570117`*^9, 3.4834821072190876`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"diy", "=", "0"}]}]], "Input",
 CellChangeTimes->{{3.483290232096405*^9, 3.4832902361638117`*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.4832902371859136`*^9, 3.485454471837722*^9, 
  3.499533699475813*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dcy", "=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "kc"}], "-", "ki", "+", 
        SqrtBox[
         RowBox[{"ki", " ", "tg", " ", 
          RowBox[{"(", 
           RowBox[{"\[Mu]c", "-", "\[Mu]iy"}], ")"}]}]]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          RowBox[{"ki", " ", "tg", " ", 
           RowBox[{"(", 
            RowBox[{"\[Mu]c", "-", "\[Mu]iy"}], ")"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], "     ", ">", "0"}]}], 
      "            ", "}"}], ",", 
     RowBox[{"{", "  ", 
      RowBox[{"0", ",", "       ", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          RowBox[{"ki", " ", "tg", " ", 
           RowBox[{"(", 
            RowBox[{"\[Mu]c", "-", "\[Mu]iy"}], ")"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], "  ", "\[LessEqual]", 
        "0"}]}], "    ", "}"}]}], " ", "}"}], " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.483290238376033*^9, 3.483290264558651*^9}}],

Cell[BoxData[
 RowBox[{"\[Piecewise]", GridBox[{
    {
     RowBox[{
      RowBox[{"-", "kc"}], "-", "ki", "+", 
      SqrtBox[
       RowBox[{"ki", " ", "tg", " ", "\[Mu]c"}]]}], 
     RowBox[{
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       FractionBox[
        RowBox[{"ki", " ", "tg", " ", "\[Mu]c"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
    {"0", 
     TagBox["True",
      "PiecewiseDefault",
      AutoDelete->False,
      DeletionWarning->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.84]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}]}]], "Output",
 CellChangeTimes->{3.483290267269922*^9, 3.4854544745677567`*^9, 
  3.4995337015980253`*^9}]
}, Open  ]],

Cell["\<\
Finally, we characterize the cutpoint the incumbent will use when the \
interest group best-responss to an an incumbent strategy with cutpoint c.  \
This conditon allows us to characterize a fixed-point on the model: in an \
equilibrium cut(c)==c.\
\>", "Text",
 CellChangeTimes->{{3.4834821174911146`*^9, 3.4834822225446186`*^9}, {
  3.51191164178683*^9, 3.51191166797783*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"cut", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Rho]", "*", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"r", "[", 
         RowBox[{"diy", ",", "dcy"}], "]"}], "-", 
        RowBox[{"r", "[", 
         RowBox[{"dix", ",", "dcx"}], "]"}]}], " ", ")"}]}], ")"}], "/", 
    RowBox[{"(", " ", 
     RowBox[{"1", "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", "[", 
          RowBox[{"diy", ",", "dcy"}], "]"}], "-", 
         RowBox[{"r", "[", 
          RowBox[{"dix", ",", "dcx"}], "]"}]}], ")"}], "*", "\[Mu]c"}]}], " ",
      ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4832903421924133`*^9, 3.4832904438135743`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"\[Rho]", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox["ki", 
       RowBox[{"kc", "+", "ki", "+", 
        RowBox[{"\[Piecewise]", GridBox[{
           {
            RowBox[{
             RowBox[{"-", "kc"}], "-", "ki", "+", 
             SqrtBox[
              RowBox[{"ki", " ", "tg", " ", "\[Mu]c"}]]}], 
            RowBox[{
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              FractionBox[
               RowBox[{"ki", " ", "tg", " ", "\[Mu]c"}], 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
           {"0", 
            TagBox["True",
             "PiecewiseDefault",
             AutoDelete->False,
             DeletionWarning->True]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{1.}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.84]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}]}]], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ki", "+", 
         RowBox[{"\[Piecewise]", GridBox[{
            {
             RowBox[{
              RowBox[{"-", "kc"}], "-", "ki", "+", 
              SqrtBox[
               RowBox[{
                RowBox[{"-", "kc"}], " ", "tg", " ", 
                RowBox[{"(", 
                 RowBox[{"\[Mu]c", "-", 
                  FractionBox[
                   RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
                   RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
                 ")"}]}]]}], 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["kc", "2"], "+", 
                 SuperscriptBox["ki", "2"], "+", 
                 RowBox[{"kc", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", "ki"}], "+", 
                    RowBox[{"tg", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Mu]c", "-", 
                    FractionBox[
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
                    ")"}]}]}], ")"}]}]}], 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
            {"0", 
             TagBox["True",
              "PiecewiseDefault",
              AutoDelete->False,
              DeletionWarning->True]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
           
           GridBoxItemSize->{
            "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{1.}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.84]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}]}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"kc", "+", "ki", "+", 
         RowBox[{"\[Piecewise]", GridBox[{
            {
             RowBox[{
              RowBox[{"-", "kc"}], "-", "ki", "+", 
              SqrtBox[
               RowBox[{
                RowBox[{"-", "kc"}], " ", "tg", " ", 
                RowBox[{"(", 
                 RowBox[{"\[Mu]c", "-", 
                  FractionBox[
                   RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
                   RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
                 ")"}]}]]}], 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["kc", "2"], "+", 
                 SuperscriptBox["ki", "2"], "+", 
                 RowBox[{"kc", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", "ki"}], "+", 
                    RowBox[{"tg", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Mu]c", "-", 
                    FractionBox[
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
                    ")"}]}]}], ")"}]}]}], 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
            {"0", 
             TagBox["True",
              "PiecewiseDefault",
              AutoDelete->False,
              DeletionWarning->True]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
           
           GridBoxItemSize->{
            "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{1.}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.84]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}]}], "+", 
         RowBox[{"\[Piecewise]", GridBox[{
            {
             RowBox[{
              RowBox[{"-", "kc"}], "-", "ki", "+", 
              SqrtBox[
               RowBox[{"ki", " ", "tg", " ", 
                RowBox[{"(", 
                 RowBox[{"\[Mu]c", "-", 
                  FractionBox[
                   RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
                   RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
                 ")"}]}]]}], 
             RowBox[{
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               FractionBox[
                RowBox[{"ki", " ", "tg", " ", 
                 RowBox[{"(", 
                  RowBox[{"\[Mu]c", "-", 
                   FractionBox[
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], ")"}]}], 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
            {"0", 
             TagBox["True",
              "PiecewiseDefault",
              AutoDelete->False,
              DeletionWarning->True]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
           
           GridBoxItemSize->{
            "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{1.}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.84]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}]}]}], ")"}]}]}], ")"}]}], 
   ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    RowBox[{"\[Mu]c", " ", 
     RowBox[{"(", 
      RowBox[{
       FractionBox["ki", 
        RowBox[{"kc", "+", "ki", "+", 
         RowBox[{"\[Piecewise]", GridBox[{
            {
             RowBox[{
              RowBox[{"-", "kc"}], "-", "ki", "+", 
              SqrtBox[
               RowBox[{"ki", " ", "tg", " ", "\[Mu]c"}]]}], 
             RowBox[{
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               FractionBox[
                RowBox[{"ki", " ", "tg", " ", "\[Mu]c"}], 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
            {"0", 
             TagBox["True",
              "PiecewiseDefault",
              AutoDelete->False,
              DeletionWarning->True]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
           
           GridBoxItemSize->{
            "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{1.}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.84]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}]}]}]], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"ki", "+", 
          RowBox[{"\[Piecewise]", GridBox[{
             {
              RowBox[{
               RowBox[{"-", "kc"}], "-", "ki", "+", 
               SqrtBox[
                RowBox[{
                 RowBox[{"-", "kc"}], " ", "tg", " ", 
                 RowBox[{"(", 
                  RowBox[{"\[Mu]c", "-", 
                   FractionBox[
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
                  ")"}]}]]}], 
              RowBox[{
               RowBox[{"-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["kc", "2"], "+", 
                  SuperscriptBox["ki", "2"], "+", 
                  RowBox[{"kc", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "ki"}], "+", 
                    RowBox[{"tg", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Mu]c", "-", 
                    FractionBox[
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
                    ")"}]}]}], ")"}]}]}], 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
             {"0", 
              TagBox["True",
               "PiecewiseDefault",
               AutoDelete->False,
               DeletionWarning->True]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{1.}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.84]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"kc", "+", "ki", "+", 
          RowBox[{"\[Piecewise]", GridBox[{
             {
              RowBox[{
               RowBox[{"-", "kc"}], "-", "ki", "+", 
               SqrtBox[
                RowBox[{
                 RowBox[{"-", "kc"}], " ", "tg", " ", 
                 RowBox[{"(", 
                  RowBox[{"\[Mu]c", "-", 
                   FractionBox[
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
                  ")"}]}]]}], 
              RowBox[{
               RowBox[{"-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["kc", "2"], "+", 
                  SuperscriptBox["ki", "2"], "+", 
                  RowBox[{"kc", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "ki"}], "+", 
                    RowBox[{"tg", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Mu]c", "-", 
                    FractionBox[
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
                    ")"}]}]}], ")"}]}]}], 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
             {"0", 
              TagBox["True",
               "PiecewiseDefault",
               AutoDelete->False,
               DeletionWarning->True]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{1.}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.84]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}], "+", 
          RowBox[{"\[Piecewise]", GridBox[{
             {
              RowBox[{
               RowBox[{"-", "kc"}], "-", "ki", "+", 
               SqrtBox[
                RowBox[{"ki", " ", "tg", " ", 
                 RowBox[{"(", 
                  RowBox[{"\[Mu]c", "-", 
                   FractionBox[
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
                  ")"}]}]]}], 
              RowBox[{
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                FractionBox[
                 RowBox[{"ki", " ", "tg", " ", 
                  RowBox[{"(", 
                   RowBox[{"\[Mu]c", "-", 
                    FractionBox[
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], ")"}]}], 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
             {"0", 
              TagBox["True",
               "PiecewiseDefault",
               AutoDelete->False,
               DeletionWarning->True]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{1.}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.84]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}]}], ")"}]}]}], ")"}]}]}],
    ")"}]}]], "Output",
 CellChangeTimes->{3.4832904463528285`*^9, 3.485454477718997*^9, 
  3.4995337041892843`*^9}]
}, Open  ]],

Cell["", "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Proof of Proposition 4 (relationship between influence and variance of \
distribution of incumbent types)\
\>", "Section",
 CellChangeTimes->{{3.483482310035367*^9, 3.4834823270280657`*^9}}],

Cell["\<\
Consider the cae in which the mean of the distribution of incumbent types is \
-1.5.  Decreasing varaince from 3 to 1 can result in greater interest group \
influence:   (First term is cutpoint c^*; second term is group influence \
\[Chi]^*.)\
\>", "Text",
 CellChangeTimes->{{3.511902845197279*^9, 3.511902898315279*^9}, {
  3.51191170051183*^9, 3.51191174895683*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.511902820237279*^9}],

Cell[BoxData[
 RowBox[{"Block", "[", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", "=", "5"}], ",", 
     RowBox[{"\[Mu]c", "=", ".5"}], ",", " ", 
     RowBox[{"ki", "=", ".5"}], ",", 
     RowBox[{"kc", "=", ".5"}], ",", 
     RowBox[{"tg", "=", "10"}], ",", 
     RowBox[{"m", "=", 
      RowBox[{"-", "1.5"}]}], ",", 
     RowBox[{"v", "=", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"FindRoot", "[", "  ", 
      RowBox[{
       RowBox[{"cut", "\[Equal]", "c"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", 
         RowBox[{"-", "1"}]}], " ", "}"}]}], "  ", "]"}], "        ", ",", 
     " ", 
     RowBox[{
      RowBox[{"CDF", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"m", ",", "v"}], "]"}], ",", "0"}], "]"}], "-", " ", 
      RowBox[{"CDF", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"m", ",", "v"}], "]"}], ",", 
        RowBox[{"c", "/.", " ", 
         RowBox[{"FindRoot", "[", "  ", 
          RowBox[{
           RowBox[{"cut", "\[Equal]", "c"}], ",", 
           RowBox[{"{", 
            RowBox[{"c", ",", 
             RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}]}], "]"}]}]}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.483293371667116*^9, 3.483293420924116*^9}, {
  3.483293482504116*^9, 3.4832934827441163`*^9}, {3.483295035026894*^9, 
  3.4832950392833195`*^9}, {3.4995337851063747`*^9, 3.4995337858204465`*^9}, {
  3.4995358759964433`*^9, 3.4995359239742403`*^9}, {3.4995390341552277`*^9, 
  3.4995391032381353`*^9}, {3.4995393066234713`*^9, 3.4995393075035596`*^9}, {
  3.4995397206728725`*^9, 3.4995397383296375`*^9}, {3.511902715574279*^9, 
  3.5119027215832787`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"c", "\[Rule]", 
      RowBox[{"-", "0.8152975822891345`"}]}], "}"}], ",", 
    "0.17995866027652763`"}], "}"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.511902555870279*^9, 3.5119025682332788`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Block", "[", " ", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Rho]", "=", "5"}], ",", 
      RowBox[{"\[Mu]c", "=", ".5"}], ",", " ", 
      RowBox[{"ki", "=", ".5"}], ",", 
      RowBox[{"kc", "=", ".5"}], ",", 
      RowBox[{"tg", "=", "10"}], ",", 
      RowBox[{"m", "=", 
       RowBox[{"-", "1.5"}]}], ",", 
      RowBox[{"v", "=", "3"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FindRoot", "[", "  ", 
       RowBox[{
        RowBox[{"cut", "\[Equal]", "c"}], ",", 
        RowBox[{"{", 
         RowBox[{"c", ",", 
          RowBox[{"-", "1"}]}], " ", "}"}]}], "  ", "]"}], "        ", ",", 
      " ", 
      RowBox[{
       RowBox[{"CDF", "[", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"m", ",", "v"}], "]"}], ",", "0"}], "]"}], "-", " ", 
       RowBox[{"CDF", "[", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"m", ",", "v"}], "]"}], ",", 
         RowBox[{"c", "/.", " ", 
          RowBox[{"FindRoot", "[", "  ", 
           RowBox[{
            RowBox[{"cut", "\[Equal]", "c"}], ",", 
            RowBox[{"{", 
             RowBox[{"c", ",", 
              RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}]}], "]"}]}]}], 
     "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4832936654811163`*^9, 3.4832936704291162`*^9}, {
   3.483295056075999*^9, 3.483295059508342*^9}, {3.499533794027267*^9, 
   3.499533795227387*^9}, {3.49953586496334*^9, 3.4995358713799815`*^9}, {
   3.4995359078856316`*^9, 3.4995359802878714`*^9}, {3.4995361038542266`*^9, 
   3.4995361270955505`*^9}, {3.499539041411953*^9, 3.4995390625650682`*^9}, 
   3.499539107830594*^9, {3.4995393147432833`*^9, 3.4995393348882976`*^9}, {
   3.499539709032708*^9, 3.499539762115016*^9}, {3.4995400323980417`*^9, 
   3.4995400325500565`*^9}, {3.499540141362937*^9, 3.499540148130614*^9}, 
   3.5119026619242787`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{"-", "1.0369641733111683`"}]}], "}"}], ",", "0.130131211402`"}], 
  "}"}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.4832936731161165`*^9, 3.4832950646818595`*^9, 3.4995338080256667`*^9, {
   3.499535844673311*^9, 3.4995359833991823`*^9}, {3.499536110598901*^9, 
   3.4995361284136825`*^9}, {3.49953904728454*^9, 3.4995391100238132`*^9}, {
   3.499539319128722*^9, 3.499539336923501*^9}, 3.499539652623068*^9, {
   3.499539711241929*^9, 3.4995397164744525`*^9}, {3.499539748691674*^9, 
   3.4995397635171566`*^9}, 3.4995400350153036`*^9, 3.4995400875215535`*^9, 
   3.4995401505648575`*^9, 3.4995415003713493`*^9, 3.5119026619242787`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ii", "=", 
   RowBox[{"Block", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Rho]", "=", "5"}], ",", 
       RowBox[{"\[Mu]c", "=", ".5"}], ",", " ", 
       RowBox[{"ki", "=", ".5"}], ",", 
       RowBox[{"kc", "=", ".5"}], ",", 
       RowBox[{"tg", "=", "10"}], ",", 
       RowBox[{"m", "=", 
        RowBox[{"-", "1.5"}]}], ",", 
       RowBox[{"v", "=", "1"}]}], "}"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"PDF", "[", 
          RowBox[{
           RowBox[{"NormalDistribution", "[", 
            RowBox[{"m", ",", "v"}], "]"}], ",", "x"}], "]"}], ",", 
         RowBox[{"Piecewise", "[", 
          RowBox[{"{", " ", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", 
              RowBox[{"x", "<", 
               RowBox[{"-", ".815"}]}]}], "}"}], "    ", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"PDF", "[", 
               RowBox[{
                RowBox[{"NormalDistribution", "[", 
                 RowBox[{"m", ",", "v"}], "]"}], ",", "x"}], "]"}], ",", 
              RowBox[{
               RowBox[{"x", ">", 
                RowBox[{"-", ".815"}]}], " ", "&&", " ", 
               RowBox[{"x", "<", "0"}]}]}], " ", "}"}], " ", ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", " ", 
              RowBox[{"x", ">", "0"}]}], " ", "}"}]}], "}"}], " ", "]"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "4"}], ",", "1.7"}], "}"}], ",", 
       RowBox[{"Filling", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"2", "\[Rule]", "Axis"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", ".5"}], "}"}]}], ",", " ", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"t", ",", "\"\<\!\(\*SubscriptBox[\(f\), \(i\)]\)(t)\>\""}], 
         "}"}]}], ",", " ", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{"FontSize", "\[Rule]", "16"}], "]"}]}], ",", " ", 
       RowBox[{"Ticks", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "4"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", ".815"}], ",", 
              "\"\<\!\(\*SuperscriptBox[\(t\), \
\(*\)]\)\[TildeTilde]-.815\>\""}], "}"}], ",", " ", "0", ",", "1"}], "}"}], 
          "  ", ",", 
          RowBox[{"{", "0", " ", "}"}]}], "}"}]}], " ", ",", 
       RowBox[{"PlotLabel", "\[Rule]", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<(ii)  \!\(\*SubscriptBox[
StyleBox[\"t\",
FontSlant->\"Italic\"], \"i\"]\)\!\(\*
StyleBox[\"\[Tilde]\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"N\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"(\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"-\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"1.5\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\",\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"1\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\")\",
FontSlant->\"Italic\"]\)\>\"", ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}]}], ",", " ", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Black", ",", 
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<\!\(\*SuperscriptBox[\(\[Chi]\), \(*\)]\)\[TildeTilde].180\
\>\"", ",", 
               RowBox[{"FontSize", "->", "12"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".4"}], ",", ".06"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "}"}], "}"}]}]}], 
      " ", "]"}]}], "]"}]}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.4836310765315213`*^9, 3.4836310767187223`*^9}, {
  3.483631114517765*^9, 3.4836311358275013`*^9}, {3.4836547204816585`*^9, 
  3.483654725738892*^9}, {3.483924551939409*^9, 3.4839246006644087`*^9}, {
  3.483924652974409*^9, 3.483924653389409*^9}, {3.4995338265665207`*^9, 
  3.499533830630927*^9}, {3.4995371691987505`*^9, 3.4995371799098215`*^9}, {
  3.4995397747982845`*^9, 3.499539775006305*^9}, {3.49953993137294*^9, 
  3.499539967542557*^9}, {3.4995399987916813`*^9, 3.4995400066154633`*^9}, {
  3.4995422527279844`*^9, 3.499542252927984*^9}, {3.499542482809984*^9, 
  3.4995424831379843`*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJzFmHc41eH/8G1ll8qMUGSEKEV4S0VUFNpW2RRZhYgSSbISsjMiMkLJyP0x
CxFOcY5UFNl7nGP/zu95vh+u63tdz9+PP47rdd37/tzr/RK57mRgRUdDQ8NG
/fnf/wzsFpNra5xYo9PW3MnpCEhOcezr5ufElFCbFW1sDLh8C61xFeXAAgWf
98jqJkPfYUminwo71tpXOq3Fmw4SMwLF/BfZMMjjMa4yeQ2pZ8TuOpqzYk/S
elW8+AugnJh+57AXC1aeFKXh3V0EbAxHzCr8NmO1rEmxOc8+gGyAJEfzk03Y
P4lJJpHujzChFDltmMmMHQtpV414UwWDQZzVUflMmFpqmxXfWC34sjJ/OvWZ
ERMpVL/wcd9nGPx74VlYPwPmYCbgW+XfBEHG5bpPJ+ixY7fJPM8Of4VPjHGH
aFnosQ5B2dyTF9pAXf8pp9wWOmxZ0//ae3ECBI4T84YEabFNavWJhNZvcLMy
yZ9fmQZjjPM+IK3UATtMpgNZHq6i9yocfWJ+nRCeFO/85f0yUoxwFctwIYLH
LkcFuppFFPh933KSBAkY9KbunyNS0IL2hfOSviRo7rZVfcpBRgIJlIhRbxIw
vtncrCo0h3rVOFz5hElwtzvpM1FvBt3jaTKTdSdC1Ic+g9CgKTTZq1n26lEn
HMrOtHY6NIHOXje5eVmjA2oyHFfikkdQkCfHr3biN5ARDdLIKxtAbh01AS7U
8fyYo3s5O/AXLXvsyu03aQOmEOtO7os9KJVh9aXMma8gqKXsdnCaiJxf3FFx
imwCsYXb/bOlbejYjvIiFpnP4PRuXPTg6TrEJdR7XWe5FuQn+wu8sUy0VmXN
u4RVQZv1237xhgIoadgd57r8EWx/p5hnjn2CzHGfQqfED/CRxmIp5xABkiLv
qDxWLIbDfwtZhYy64O2c59UhpwJY6c27Zs7YC8G1vKakkdfQGxY/QEzqg/K6
hKWSe+kwWHGwyi5gEPzLbl0cN0yG7EhHn0+XR8FoTv2AfEkMTGZUWpwenQAb
s1sFqRyRsE/wV8ts/xTcuz6qqe0bDLsfDtJ0Fs/AM1uZ+tDn/nBHQzM92WsO
poIaPjjUeINxhYvzrDUZ8jIi2sp13YC+M49grLAA2PS84c2xG3DkzAK3ouIS
mBBMtn95ZAHtHbb2jk85scjElWqbhCgIKls1zEriwPj8r6x4H46HHKbuM155
7Nj3eJMk0+qXwBQtWt/8mQ1rGgzKzU14BZYpyTG1P1ixs7fZpxxT3wBllOeT
8N019DTF8o3X3w4grGh5OySuoId7W2rHaInw8DeDwUDFEjqxyOB6lkgE9RK5
rtfNCyjtvLLtH1MS2G7fZ+Y0Q0ZyYReM1IJIYHe8lMFqxzzKNvVo/3iZBBrH
vzUGK80iUf6I8+UEIgQ1Vj0tcphGWfdS+kqYiEDUEqQXi5xEwhVVkoajHfDC
MMjGSe4XcN4MzI5Xz4WJwxnpgu1/4LAYdv/P9kywfGVrJBL5D9waltPNZl5C
g4RBcqzTMBB218cb68XDmYToyc1i4/CBTGr8WxoFkSWmfuzjk4A8h//lr4TC
3rN/B6yap+Fo7cKJ5dZA0Lv+3KA8Zha8Lbfkj7X4gf29LpbGW/NwvFfHYkTR
AwoawlOzTlNA+XqE1su9ziC89dvMJ4VFuPhAf6C51QZGpqz2ldRzYoqfD820
qz2DqFylhOpuDky60EY5/coLCL35btOdQXasX+Hmjl9vUsB9YI9+Ji07doBr
OZ/bMAPqG35mOPGxYYcZdTWezmfDULGUTfb8Ggq6+6TkS2gHuOUm0JZzrSKx
lnd7+Wo6gQVae0nKy4hwU36zUhYRfozoMV04uYg0fPdq8mqR4P3+sFs9VhT0
kFP0PQSSIJ4rYpdn5DzqIookn3IkgShlvMkiexY9qw19371EhAeG8tJaP6fR
pfiETTwaRHjvS5NziX0KhXiwdEmrdoJtfGJp/dFuePi5+ecRxny4zS7lXznS
C/1BhVLfPbJAVIBOyCe2H2Q1cgmP5dPg0vQx+fteQ9Ca2BjdrpkI3jF0Jbbq
Y6BjMRn5c180nGAUJvG5TMKbrIyzUhXhIPXe/Gru5WlgiuE13PwiCJRnKiV1
xGfBX1RPzU38AdwyC+0snpuDFMfKtmArL2CqoQ1uIZFB6q4me1W2C0S4VVlE
Fi7AZrGb8ima9sC8h1Hi+doqylA792hVsRMU9KbmBaRW0JZpb3kfVSKs+ipX
z8ISkgunKWunI8HLB1x5KwYLSJ5g5zbqTAL+hcYzq35k5BD/dHVXAAkOefQO
no2bQ/lD3C/OAQlMw0sb3lbPoODhfyHNr4gg9FJKKod5AphFEo/fuPIMeuyS
JGjtpyDV0SjWMCcExIet3ISOzkDdmuNQ2p4AuN7mcHff5jnQV/jm4SPgCxaJ
4uq/R+bhdP/UM6L0bbjSKlz+AFGAMqa1hSvACXLz//mvFC6Cx9eBMsIzK/Dw
7Qu9+pcTS/PSqKA8jwT+TAPs6xIH1hTEHLTiHgs0IqLW7owc2LZfnA91JVJA
JjyTe5sQOyYSb19CKkqH27+WZU4cZsPepv6gaZLIBme2uB+H+Gmw2Z/8I/PX
O+BEgHbtdd1VFLbHSW1Xaic0j7+TNPRYRkKxpeL8oUSQCjQVfBOwiM4pz5wO
P0SCn6CxwJtMQU11djcu+pOgeN5b1r91HmX5GTtfuU2CbQbep8/2zSKLsnIu
Pg4SrMYMeHLumEHZFfBy31Ui7EmYvjejO4X6Qur2elzvhLOQdX1a9wekul6+
SD+ZD2V3briEefTC/drH1vryr+HB9xa6HIF+mAiX2uLxPQ1SOis85tYG4fnI
Sbpy7STgfn6Yn/fLKIy2EU61TESDkIwv464Dk3Cv5pTT2+sRIGMnvL1NeBoO
Cmyh1w16DHnlhtvDx2ZAYJKhbbHrAczqD6pJfZgDGoY3sfWhd+EtlPlcSyGD
as/7kb7brtC450P8HZcFYDz/rSE13AFoHnPcuaK2ht5/mpM/wdYJdOIJpTUW
K4ilQsAQEyZClZwwi+O9JVT4aHO41jgRJgV31RqGLyDWMp0ru+xIcJTZu0Op
jIwS3d2MDR6R4Kxp8/wV4hw6wvDMVfMMCfSHtXSTlmfQD6cLpt0fqfszyfzp
lefjQL8lnzuDOQpKw1cNmWWmwHv3Ad/Yr09BInG3rCbzDHTvi+9qJQcA8QWN
jVvrLJj2HExIkvaDf0/90o3y5mHTqdGALqk7wHiGmLc9kALfxlM15V1uwT/z
n+V/XBZB1LQ7bC7HGrTDhl+YLy2h3XsOqM9iRAg5B5NrLIso9RKb+QFDEoSJ
/RrIlKGgUOuV6l5q/x9IZWx1MppHYdE9AVWWJDAYpInN3L6AkqKIiic8STA7
zFdXp01Ge06j0Nf3SSAUOdelZTyHDP3disbkSOC2OnGKd2YRLAL448ceWYJ6
fRrKneLE7hBrt3Ufi4TuNHODC6ycWMLkjIEMUyyUehGjZrk5MJET4tFPmpIh
yHLQXVeGHUvdMqaQYJUOLbYhk/nabNjWfaXjctWvwckqQe61JA0W1Em8mn+6
A2SnEjKUbFaR5/1Jec2ITsirz2oOi1lGw+4y94L9iHDO0FriYvoiknzXn1FL
7d9kfazau3IKmr2Ws8WO2n9syOVg0MQ8Ctk0Lk2gjo9trTpEi3YOmVcdG8F2
kEBV5ZiIm8IMUmk+TDlrSwTj7JFBzG4K8Y4mP1F074TjEfsOBX3tgp99V0vS
FQug+w37MFm9F3go+qURT19DocLBuaM/++BZxc/PIZLpcFx3ISG/ehCaf91T
HvqSBL+eEZomIkfB3UjA7qtBDDyBfAGx7ZOwf5P4x8WSCHhTvTr1h24aPuin
0rXQBcOQsNATxbYZqNQYCfM75A9KJ7dPWb6Yg67io4avJLyB6V40OdufDBVY
+Z6O365gfa/okL3BAuw5Fn5CXO0GLKtwC6sZryEm5ws5tJQOGI6YiovxW0E6
7vI+C1xESGXempeduIS+WKf6e/wlAs+wxNfVvAXkeCX+vhx1PRiFfuMndJAR
eZtv1iR1vRifq1kxI8+hiYzl+TzqejoZ8zQ4im8W9YROsEx/pt5PiUvqCsbj
MHfl4GZR8ygQT5e1Z2GfgtxHVpNWVqGQNU/PajQ8DV2W6d3+FoHAvdrYzVM8
C/H/mruee/vB3sDci2Fh87CQYvBPIO8OXHlSvNfMjgK/fRylQ77cggelxIvf
DRYh/QUTX42qDey1+amWyL+Mzv0cEa4qJkKxkPZStuQimuA1mSKcJkFqtpLM
cR0KMt1x5LEytf+hO+P53FznkbHprj/vqPvZ692mNIMDC6guVPL8J3cSMLu4
bL5uSUZ+zKW0odTzUSpgpPfU3Tl0+5Xwr2bq+cl1cWSAhbAIBuc3V5izWUHj
h4Fi7wcURDLkMJx9SIIs+kcS997OoxMPLz1+4EKCz/q8pVnOC0i7aK28+CYJ
ZP3EIuMSyaiTYc/t69T73jshII2Vi4Js3QRMDlPfY9ICCyHL8xQk3ME6bEV9
7/dYVPlJSpPR7oLaEldqPEDMmM3fw70E54skIx2YLOGlHT2xg8KJsV+yu6kh
EAnqqTbxfNyc2HcRzst/WmIgOlNR5oAAB6ZWuLM7MzgZ3rdsyrRSZMcSW5ZS
v6mnw+I+IwMrfTZML1xbnhD2GsYjEknX9tNgb5fGvrgd7QDRTO3oFPdVZHfx
46byoE5IVkgVls1cRr11/j6pnkToUx5+86ZoEcmE/GP9KE2dT5Y6M/pGCtq9
6aapoR8JtP6OfWBZo54vRU1NDndJEHT+35sqzjn0fm+6EJmfup5Yp9xeacyg
c9eMnT87UuOh/YOJEp5TiL0y7eDte52grnJLhBDRBTcM+78UniuAG9q/9siI
9gJZMLApquI16F6zdWSv7INjpK0ua4bpEO3Pk8+WPgjmT+az5LmS4Tj3y/Sr
t0eBx6IylfAwBjR1Pr1KZ5yEJy84UkT/RsANJ8ceh9kpaFy6GNukEQxMBvRa
jDUzUGyWoHPB2h8u1Obo0gXPwZ+iwhfS7t6wP/Fhsb47GbhTFac2b3eDYqm3
ARaaC9Cv6q/WGnUDFp9td81zWENjX2uf1o91wC/thCe0YSuo6mPEAe/NRHjm
ykqjk7uEkvkFiyd+EiG7NcfIqHIBKcu6e0ZdI8GvNho1kX4yIjx6qyBCXQ9/
dNXv/2GaR0ZsXELVF0hQO1aQzbl3Fu2I4Txm3kKEQcEGniQYB4lSEOgKiYLu
XK25JyuTkCzG0q3yNhRs01wXun9Mw4jmUWbmuECQly+IGcqYhdir3FbPM/xA
h+74Wxm/eRiJ91R+O3kHArJT++mvUqjnUpCI2eItaLXqyGjRXISrJlMks0Ab
4CN0hB2RWkZarhPBgXlEOMnY5EejvIh02vV87uuQQGb8ul7kRQoaXj3fXk9d
39t4diTOP5hHKve6YthukIAjIWRv1rEF5KDm86DflQTh75KkC1zISLVmJP8a
df8U3LO2agmeQ5mRQ3rxR6jvN/qhgww1i6D0Y+u5Un0rMFrm7mwMpyAdeh1O
eWp+2RXaHJqqeST/9aa5lxt1PSklqK/6LaCXuRo7bzuQ4EONfvFgDhk9+s2T
0EftD1PP27rLQhT0RUX7OA91fitpfbYaMC0gNy8NpV4vEthnjqXeUSYj7Pr9
lljq+hU3mF4Rol+CxeEyk69almDtf0PAJpeClP7cuWH/gASNulmUh5/JSCpR
8X0O9XzhtWFhmVehoENalaQYKt+T1RrgvkBG1a2TcxnU/Bru5ZGybhSkf+Tv
wXTqezVdlex0OoyMuGYJI01Unr50+f5HWgoaKZZiP0HtX/DC/DUZsSWIciu3
xeotwOCIoqXDMifmYzq0g5M5EhxFRmBpByem76n/ybIoBhjUe8kEIQ6MvT2K
3dQ+GZrpX8CMEjs26bUSESidDuFch+k1DNmwWwtao9jt1yC7N0lW/SAN1vtc
sKftSAcI0iWGfvdeRdalpW7ODzshdjDp5EreMlK/7OolfpsIsvveOF0sX0Tm
zJztBZIkAJkft6TaKIj9kHMfRj2fWMxzFpuYyMj7kYmUHPX8qqehqK7tmEMv
SZfrWHaSYHTmUxLSnkENq9/jVpyJwORuTenym0K/ecUqufw7oTw0Ipri0gWq
j//SN5gXQHFU/bF67l5ocGL5I/vtNURTaKVd8/rgw+2SeQO7dIAU8cPlUYNw
dGUtn0YhGcjtzBFbbEeh1aWcNJ8YAyoJr4iNSxOQ5q8b10mJgC8nXl2UH5sC
8ZeFSQtmwbB9xF1svHwGLBtk9/zz8Qdrujvksw/mIEha/tCBBG+of7O0VdSR
DK2C0pwEOTfopimQMVdZgOJdPEdpqm6AJ7Zjp43rGmpX7StKHewAYuqUv1L0
ChKkv7urhJH6/pLcJMn7bgmxBX7qEf1BhNmamzxrdQvo87aAc+rmJEib2aF3
cpSMFrfHt+6nfu9Xn5aq0zjmUTC9yIDmJRLQvahWOSM3i540EPZztREhrluO
wWj/OBzQLPhglBYFJYXtZV/mJiHNM/vMtc5Q+OyZc+vlt2mI4bxxyfVdIECD
qHt70iwcnbxhq1TmB1c0OE3veszDrkbPJOWtHsBfxne8w5ACXjrz4LLFGShH
vp9uUlkE/u1SMd45NrD1MeEDi8IyqnQKY7qWQ4RISsixHI1FxFrC8uGrNgmm
OD3NSk0pSPdze2sAdX8RnxF+lQTPo3y+oi1y1PvuUpjeiMGpBfRH6MmfEep9
eL6zWLXTk4xs4k7/raHuX7clscywyDmkYuR12VONRA2BB7ppyhfBPfDqvjxn
K+AVkhqciqEgC4NEnXrqfTzliUarPs8jofm1azep9/UrSVPa10ELyJd1QFjP
nnqf9lvVcRaR0b4nLJuFqPuvkfZzh98eCirenc21RuVNc+rfl9kX0LHKOKEd
1P0u10BfnKRBRpaycaVi1Pfhmb1T6QJLi/BDcOsWbRtLkM54IBNaTEElT7V1
R6npYTcqN7/5SkZjOoYVrdT6fgbtEtipST0PFC+pO1BZ86wxRcWEjPavWD0S
pPaXMaYt7fxdCrpqVNiqR93fdqbs912jyeg+yeUjH3W+SrycIvs2Uc8zTF3z
KPX7v/06t0lSYAl29jEw+f6zAL6CYenFn2TE8iPNi5WabvPltJrDWQqiqXhY
Rkdtb+alclpVOhnt/V25/RW1vqOV8cUKPBTkJV5vIkXNzyQZOWBSRUafNJSi
71PzG52YpbQoUtDrCIOriMr7Dh27Fb1IRkpsPz8eo+a/LkYpk5NeAn3SgJ9c
pgXgfpfmP3+438UZ97s4434XZ9zv4oz7XZxxv4sz7ndxxv0uzrjfxRn3uzjj
fnc9/T9+F2fc7+KM+12ccb+LM+53ccb9Ls6438UZ97s4434XZ9zv4oz7XZxx
v4sz7ndxxv0uzrjfxRn3uzj///K7ePu438UZ97s4434XZ9zv4oz7XZxxv4sz
7ndxxv0uzrjfxRn3uzjjfhdn3O/ijPtdnHG/izPud9f7L8GqEOAwtj7/FIul
pN25Qyg8WX7nfYZvwBBSd+tcWz/a6UN4MX68He7u36tvpFqO7D41B2tcqIG+
soUDqWn+G/PXUGG3UxJbZ9xn4oz7TJz57S6f9jo3vt7+L4aDLWavhteZt/MV
ca3uHzog4Zvh+74ddtgczZBzr0Je0z4WWhK1cOd+plhUZyS6wLJowcVSBa3e
z7sLnn5Ybw/3dzj3/KvgCQ8YXa9/a02V01DRINqZ8Z0xIpoAjVHNhjqhRehN
2kTTjcfVIJt0ViZeLW29PO7LcMZ9Gc5Zj/1IbrUb4zn7vc1qRXRjfad6x7Bd
1BhAnJl/8gvG20GTg9ey0LwGhajWoFMRtXCbaHxNLDoF+drrTDJYUcfjLNbr
kFO83h7uh3B2ZO5LD6ZsjCfgmSnzI/khFGmsOt7eTADRv15telYlqFmL79SZ
iWoYYAsr9RePXS+P+xicHQ7EKlVLbsw/y8nzWwNZXdBlxSuHRAqwdX+Cp+P+
BOdJvm27plc2xh+slrL/9LWN8dt8DXv1wGcAqXCqLSezEIB4zb/G9UIt+nOJ
ZSWnvhYMLUU2n5VOR5Hx9pw9kVVw9oa9hU5Z4Xp7uC/A+X3MnRFmhY31W7kk
Q/juOITEYgtXVYcIoBd8LrztbCn62359Jl20BmTmGO2llsPXy+PxOc7pCdZ0
W2w3xu9FUM1yv/IIldlUD5C7sfV4Gk/nuUkfl9e3kV/hhbzrGG0cSjPcpGx/
qAoUvjTYu44ModO73bWShL9B5b6ki5VHrNbL4/Exznh8jPO2PyY1Bfwb5+Ur
50cxrn4b89lIeeLKmzCATIc+DIbwEiCdVdnVqK0WHXxSwefaWwua2fQm/+Yy
ELmwMKn/dRWEDz3d/aHq7Xp7eDyIc5dZVWi93sZ8/pDbprzydAj9yLbu/jtP
gL6fFRORWmXovUzwGXvVGkhqf/BwqTl4vTwef+Fc1XrG9vCjjfk5MFJHbnkY
itZ6fGbuzmDr8dJ6+svhte/0G+Pj3DPHzx+TiJxDpnzl9KrgmXEiTwzjMPKO
47SYlvoGbLRpRs8+mSCpAPHKhGRsPf7BywfZ+iYMndxoHysvuiQo74d8rDfr
P6zHYHvsH4bTX4bQWH12yrat38BIq7cxYtpjvTwez+CMxzM4i9fTbeeS3Pg+
xax3dZnDN/p/l53likXOABq+xpvmJ0yA4B7uplqOOhTLlHKle7wWlJtnA/f/
eIXKJY6ZOb6rAvks4QCnExvfB3+/4zx6zLpnj8nG9xluYB4NTxxCyZZOhUUr
BCh45JLsWlWGPKIunjPUqYEqrcrulsOP1svj7+X172V/VOBL9Mb8BB2p+7rC
FoF8TrDsql3F1t+3eLrmkV+Fdtwb41u173QsuJaMHlb1KcZeroLna1PZpmIb
9aWYxwZcrrZC/UmHe+bSsfX3Kp4eTeeq73NpI3+itgeNTp0/cqoVY6tow2C3
QkfJ7x9D6GDhqbddvN8gTvbS3cOfndfL4+9PnDWsP+5kXhpCF3YIGpuJr6+P
9XSvlidD55U32sPfjzhvy9Pu9do2jOqr2OC1zLeNc67YTUEsAft/rb/1fP+9
Hv97PmIpvYUHFr4f+b/pBYC3d/v/1Fe7Xv9/14fz/wCeniHN
   "], {{{}, {}, {}, 
     {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
      GraphicsGroupBox[
       PolygonBox[{{477, 523, 524, 478, 504, 436, 481, 507, 452, 473, 499, 
        414, 455, 476, 502, 427, 443, 464, 490, 385, 419, 432, 448, 469, 495, 
        405, 413, 426, 442, 463, 489, 384, 383, 382, 381, 380, 404, 412, 425, 
        441, 462, 488, 379, 418, 431, 447, 468, 494, 403, 482, 508, 456, 
        511}}]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV03mYjmUUB+DJjG2swyAmRU2UpYyisaW9ZkTIMGPG0KgkW6hERFGiaC9K
iRIJZSmFFpGlFaXs+9qqUqLEff64v995zrne9/q+53m+2kUDOvY/IyEhoYeP
yDN9bJbTGcyNXEIxqpttka9xN225lERqmG2Vr3MP7WhCEmlm2+QM7uUmmlKc
s8y2yzcYQnsuowQlKUVpkilDWcpRngpUJIVK1PSuHXIm99GBTDL0/5BLeZzb
qMzZ+jvlLIbSkWY01v9TLmMCt5PKOfq75JsM42Zax6axVrxI89gv66PyQybS
iyrU0t8tZ3M/nbgi9p3P1S/RIvbU+i/5EU+QZZ3Mt+o7uFqdxFfqV+KM1OX4
Xl2V2uo98q3Ya3VFhquvl6VYH99dppKjvlIWI5cvYt9kJQqYYt1GlqUrG61z
ZFW60TLOWf4tu8iP4wxlCvk8aZ0ty5DHd/G7ZRV6q6+Rxfk69l9WZmrcLVme
H9TVOFe9V85hBDdYl2aDujNXqRP5Uv0yreKOWR+Tn/AUd3KtXgm+Ub8a953z
rPfJuTwQv4PL4x7q/yOX8zR9qE66/n45j5Hkxj2gBuebHZBvM4q8OGPS4q6T
6I9UM+5e3Ke4E3Fe8fvie5Bknh7voQ51I73zoHyHB+kaZ8YFMTc7JOfzEPmx
F1wYc7PDcgGjKYi7Q72Ym/0oFzKGbnEW1I+52U9yEQ9TGPtGpv5x+SnP0JcG
8Yz+z/JdHqE719FM/4RcwbP0o2E8o/+LfI+x9Ii7SXP9f+VKnqM/F8Uz+r/K
xTzKLXH+tND/T37G8wzg4nhG/zf5PuMoIouW+iflKl7gLhrFM/pH5AeMpyfZ
cYf0/5ermcRAMuIZ/d/lEh7jVtrEndE/JdcwmUGxD3olWaeeRjt1BTapO8tq
FNLY+jQ35pNw
       "]]}, 
     {Hue[0.9060679774997897, 0.6, 0.6], 
      LineBox[{351, 485, 459, 438, 422, 409, 401, 352, 353, 354, 355, 356, 
       357, 358, 359, 360, 361, 362, 363, 364, 365, 366, 367, 368, 369, 370, 
       371, 372, 373, 374, 375, 376, 377, 486, 460, 439, 423, 410, 402, 493, 
       467, 446, 430, 417, 378, 487, 461, 440, 424, 501, 475, 454, 411, 498, 
       472, 451, 506, 480, 513, 435, 503}], 
      LineBox[{477, 511, 456, 508, 482, 403, 494, 468, 447, 431, 418, 379, 
       488, 462, 441, 425, 412, 404, 380, 381, 382, 383, 384, 489, 463, 442, 
       426, 413, 405, 495, 469, 448, 432, 419, 385, 490, 464, 443, 427, 502, 
       476, 455, 414, 499, 473, 452, 507, 481, 436, 504, 478}], 
      LineBox[{512, 457, 509, 483, 406, 496, 470, 449, 433, 420, 386, 491, 
       465, 444, 428, 415, 407, 387, 388, 389, 390, 391, 392, 393, 394, 395, 
       396, 397, 398, 399, 492, 466, 445, 429, 416, 408, 497, 471, 450, 434, 
       421, 500, 474, 453, 437, 505, 479, 458, 510, 484, 514, 400}]}, 
     {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{519, 521, 518}], 
      LineBox[{520, 522, 517}]}}, {{}, {}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(i\\)]\\)(t)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  Epilog->{{
     GrayLevel[0], 
     InsetBox[
      FormBox[
       StyleBox[
       "\"\\!\\(\\*SuperscriptBox[\\(\[Chi]\\), \
\\(*\\)]\\)\[TildeTilde].180\"", FontSize -> 12, StripOnInput -> False], 
       TraditionalForm], {-0.4, 0.06}, {0, 0}]}},
  LabelStyle->Directive[FontSize -> 16],
  Method->{"AxesInFront" -> True},
  PlotLabel->FormBox[
    StyleBox[
    "\"(ii)  \\!\\(\\*SubscriptBox[\\n \
StyleBox[\\\"t\\\",\\nFontSlant->\\\"Italic\\\"], \
\\\"i\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"\[Tilde]\\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\\!\\(\\*\\nStyleBox[\\\"N\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\
\\nStyleBox[\\\"(\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\
\"-\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"1.5\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"1\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSlant->\\\"Italic\\\"]\\)\"", FontSize -> 
     16, StripOnInput -> False], TraditionalForm],
  PlotRange->{{-4, 1.7}, {0, 0.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic},
  Ticks->{{{-4, 
      FormBox[
       RowBox[{"-", "4"}], TraditionalForm]}, {-0.815, 
      FormBox[
      "\"\\!\\(\\*SuperscriptBox[\\(t\\), \\(*\\)]\\)\[TildeTilde]-.815\"", 
       TraditionalForm]}, {0, 
      FormBox["0", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, {{0, 
      FormBox["0", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{
  3.4836313516080847`*^9, {3.483654721979268*^9, 3.483654726877699*^9}, 
   3.483924655267409*^9, {3.499533814581322*^9, 3.49953383846471*^9}, 
   3.499537203345165*^9, 3.499539790636868*^9, 3.4995400147352753`*^9, 
   3.4995422541559844`*^9, 3.4995424854579844`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"i", "=", 
    RowBox[{"Block", "[", " ", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[Rho]", "=", "5"}], ",", 
        RowBox[{"\[Mu]c", "=", ".5"}], ",", " ", 
        RowBox[{"ki", "=", ".5"}], ",", 
        RowBox[{"kc", "=", ".5"}], ",", 
        RowBox[{"tg", "=", "10"}], ",", 
        RowBox[{"m", "=", 
         RowBox[{"-", "1.5"}]}], ",", 
        RowBox[{"v", "=", "3"}]}], "}"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"PDF", "[", 
           RowBox[{
            RowBox[{"NormalDistribution", "[", 
             RowBox[{"m", ",", "v"}], "]"}], ",", "x"}], "]"}], ",", 
          RowBox[{"Piecewise", "[", 
           RowBox[{"{", " ", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", " ", 
               RowBox[{"x", "<", 
                RowBox[{"-", "1.04"}]}]}], "}"}], "    ", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"PDF", "[", 
                RowBox[{
                 RowBox[{"NormalDistribution", "[", 
                  RowBox[{"m", ",", "v"}], "]"}], ",", "x"}], "]"}], ",", 
               RowBox[{
                RowBox[{"x", ">", 
                 RowBox[{"-", "1.04"}]}], " ", "&&", " ", 
                RowBox[{"x", "<", "0"}]}]}], " ", "}"}], " ", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", " ", 
               RowBox[{"x", ">", "0"}]}], " ", "}"}]}], "}"}], " ", "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"-", "4"}], ",", "1.7"}], "}"}], ",", 
        RowBox[{"Filling", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"2", "\[Rule]", "Axis"}], "}"}]}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", ".5"}], "}"}]}], ",", " ", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"t", ",", "\"\<\!\(\*SubscriptBox[\(f\), \(i\)]\)(t)\>\""}],
           "}"}]}], ",", " ", 
        RowBox[{"LabelStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"FontSize", "\[Rule]", "16"}], "]"}]}], ",", " ", 
        RowBox[{"Ticks", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "4"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1.04"}], ",", 
               "\"\<\!\(\*SuperscriptBox[\(t\), \
\(*\)]\)\[TildeTilde]-1.04\>\""}], "}"}], ",", " ", "0", ",", "1"}], "}"}], 
           "  ", ",", 
           RowBox[{"{", "0", " ", "}"}]}], "}"}]}], " ", ",", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{"Style", "[", 
          RowBox[{"\"\<(i)  \!\(\*SubscriptBox[
StyleBox[\"t\",
FontSlant->\"Italic\"], \"i\"]\)\!\(\*
StyleBox[\"\[Tilde]\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"N\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"(\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"-\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"1.5\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\",\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"3\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\")\",
FontSlant->\"Italic\"]\)\>\"", ",", 
           RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}]}], ",", " ", 
        RowBox[{"Epilog", "\[Rule]", 
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Black", ",", 
            RowBox[{"Text", "[", 
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{
               "\"\<\!\(\*SuperscriptBox[\(\[Chi]\), \
\(*\)]\)\[TildeTilde].130\>\"", ",", 
                RowBox[{"FontSize", "->", "12"}]}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", ".4"}], ",", ".06"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "}"}], "}"}]}]}], 
       " ", "]"}]}], "]"}]}], "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.483631145062761*^9, 3.4836311664504976`*^9}, {
  3.483631215544012*^9, 3.4836312257152777`*^9}, {3.483654730715324*^9, 
  3.4836547358633566`*^9}, {3.483924407011409*^9, 3.483924459320409*^9}, {
  3.4839245085344086`*^9, 3.483924512898409*^9}, {3.4839246070984087`*^9, 
  3.483924608224409*^9}, {3.483924693595409*^9, 3.483924695755409*^9}, {
  3.499533834031267*^9, 3.499533834839348*^9}, {3.4995356210039463`*^9, 
  3.4995356285637026`*^9}, {3.499535678133659*^9, 3.49953571375122*^9}, {
  3.499539784983303*^9, 3.499539813399144*^9}, {3.499540156702471*^9, 
  3.4995401568294835`*^9}, {3.4995415486491985`*^9, 3.4995415830070114`*^9}, {
  3.4995422577029843`*^9, 3.499542257870984*^9}, {3.4995424707149844`*^9, 
  3.4995424710509844`*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJzNl2k41Vv8t7eEDkITUUnJHBqV0FJOJIVQGhAVmpCpQZKIJEOpE5lSiCip
vTuZ2t/fNqcop2J3omgildkeDc/qec7iunpe/N/+vXHd15rX+uz1W/eCvT52
7pNoNFq+CI326//kqft6x8ZkqdiPTyMDZYrQjQzvzy1KstTc+lv/+D4vQn6v
4yr8F8pQdPZfkWXXitHn1Vrs0DVTKZV2k0unbUqQxsAchpKjNJWuzrk5h1aK
bm1RPeXtKkXdV1vb0F1cikrZWcdXB0lSji6fGyzdypD0ZKM9ZaF/UEHvOX/b
yD5BehFaMvUXp1BznUR6Jz18gnoMEvrtcySoy61rH7atY6LOKNnyq/fFKf37
Z0+nvWaiM1ISNVa1YtRfrMtDDg6AOj9tvxL/ZTJ16sHcPMdaQFFOpZtie0Sp
eX/v3/hwHoVqxJJXiUiKUrNOT/ssZ02htTaxsvrTJlHWBv8eDwqmUGQ3u+Db
XBHK+p72AmYmhbyY6eFKhjSq46fbt4RyCsk790dKnhsFCe03bTGtFLqUnuL7
/O9hCLTmMGN6KXRCxXvZpAoBvM16FGs9SqHJ1n1nt7J54B9hf7NpMgvVtxww
jpXhQprat0V3MYvd/aPeWHkIUpxWP8obodCplvRatvUA6DvvKmLi/q4WfbaL
i+qDkudsZfX3FFqVl+Phs6oHVM+mrvWqoFBFtvdI8o3vIOhZxfbPotDihVGm
BSUd4JtsIPDH63k3NOnmYMcn2H1gnUcLXq94jEfzDMc2GHOZ5NGmTKG55oYB
K/vZUGi1MMywDpAq/9iXweJG+CTj6iqP99PnUffClZurQE3RWkOxmYmW9H4p
DKZyIGHqsXJqAxM1ejz4ov60EB1P0Iq78ugJOvAhwzXnZw2qOZ/dnyj3BD2h
7RPmr3qF7tC4tiI+ZWj1p4dSyg7/ojEr51aVulI00l7g5irWjtTdKiMpuVLU
Hp/SwU7/jGqq446YuZSgzrKVrIMRnajilJ/mjcRilJfgfbpm5w8kMS+fM+Nl
EerNZu7b/KMHmby5dTFhehHSnfu+YfBLH8ppXh2rvv4xWnSuk9bMGEBapvoa
J07/jY6brs+6ETSEDi/1crQqfYScyvx8Bz24SOT2mT0VHQwk2lzwymkZH6Vy
RhJ0FjKQ0Rb+jOXLhWgB93SUtDkd/dN04JB3rCwVUuy4sdGrCAU1GSlOyqdR
oV1Koa10CvF+KNTMPzUGt5uLTL+9pNCrEfPgw2kjYLRN27S+g0LnPky26ygT
glK370o7Hs7fY/1/79TzodI0yv/oJBY6MEt3j88AF/6VTvwYJsZCB/8snuwu
z4EX/oLtMrjc9M/XddEGg1Byfpk6n0uhqDpWLP1wP5T/KFbX7aQQ23yuqGpC
L0gqzRy+2UihEQ2pZRGHf0L5awXZOwwKzZ/+eqBmmQBpvAsoE2HQ0fc+d93H
1bJUX/7VBMO1RSh0r+TnoU94PWu3NwjyKfSNoe2ZxxkD7wf+moNPKRRwL1Wk
VG4UlIteT2r9SCFJ9LL9reEwWA5zTuYO4rx9txbfvlEAhaUJX6/RWOjvpfFH
29x5sO75ngXOeD0pcpdVTiZwoNKyZco1URZayOt+ti9vEKazvywSFVIozH6J
jnlrPxQMeFdm/aDQ32do+Tum9oHZ641uSmwKKR3cuTloaze8CGNHGZZR6HIA
a1/CQz7SvfY8etp3OpJQE9P4a2wURItV7vg2U2iZdR9njvYIHP5ZbuaM+xs9
Y1g+iITQmzMv5wIe72aYXMGIHR82WTnLvcPzUeLXbRkN5UL18cCPFni+q060
d9omD8H0aT90Z+H1uFwqfvqgfADsDVW6Y/B649bZ96oI+iBBsl9rxycK3bv/
NXzkoQAl1U9XHAumoxNnPsft/iRLVaVJ9zqpF6HwXN+nPjQRKkH1SUFHDoV8
pZPfrVKiUWYX2idvrabQhgiLyr2bRqFg+ttO0zYK1Xc/0rI/MQxyTQeac/sp
pB3pMvduhABudU65HDpGoVZkyp99gwdWyc94ani+DE6wXvhLDpRK6Vvp4/tl
pl3wZtvPg/DhXKfJvmG8/sSOk7LyA0Ddkj7xpJtCaqn9IQOb+iDS/VaL7jsK
5V4IfRtQ2Q3KcVMmfwAK1akVpRz346OhTvnjaeIMRLsgc3yXyRicdteYYfSa
QpPUU4sr9o0AuCHrBV0UYunPl/QOEcLx5c+NhvkU6p2rUml/iQ/zb3+5uRzv
7zqJ4CaDEi6EqV8P8sXztXWp5+xiD4H6xVk980VYyKbLfFP68AA89CnfYsOh
kFSkJOpa1g8j7rY2DV8o9NW1tfSjnwBxXO5fC0miI4v4ruuuQiFYVp9JvYjr
x2xFvWOSAuhtpF24jPuLV33fkbOYB3VDi5SC8Xhh2tnTfRw4EPyk17UN/57s
OmlJObP44GZWWuqB92uwS7GqyoILUfatSuK4vnLC0L/mTkPg/u7R7G58nweM
9ljNHhAgyzM2GeFudLS2OhPu9clS8q8c4w8pFaFzVmpld2VEqA6FDMabbAr5
uKfq39GiUQ3dQofASgrp9aVmG3iOwvyjbe3f8H1eUJ1bH584DLSAP3em91Fo
q72HhmOWALwlmJO/4/F6q5NMHpXygG/31k4Ez4f65rcyqocDwlTLDb54vtJj
5THmIkMQlrxQRhJ/P4zXmC0IWDYASmLqEqweCjnlfe+kDvbBusMN7vdacH+K
M1X6R7qh4PIuyTssCnmE0FcdsuMjQxvpDftnMtDwmhnzTZzGIGJq8KW//qFQ
1+W+5MTQEdj2PddSgO+XWxLTC/LShFAVEvxMG5+vQpfGi9ECPhxVPhX2Bu+n
Q9xrpVdNXKhty1xxGs/XaWvFyB7uEBREhBQk4/PYmBgbfVVxEGTMHK008P21
SdPjq7VNP8hG7c+m4fsxrJjt+MZOgBw6nEvQbTrS9Gw1SVMaBo9QdkraEIUY
yhbCPC0BNCueLlDA/d3KM1j8pyUPPH9WZ/rg8eLmpSgG+HPgk9x+1lqct6BH
UzLtVvBBzSvNZRHeLwk/vz/27ufCXHbUZG1cXzvie7vVqSG4c/6kbgT+Pck5
fu+QfCVAee22TaY+dFRX1MEIDuPBpc2iV/7E9XNFz2uEPOCAncIPg6+4/1qb
2cW5vnxITHdojMasF6qakJzGhTzncMYeXD84NSJTSo4H09KOnPt1n+vM4ccM
c3iwLMZd4xaeT9s+VqiWDhfMllxXa8HMzh68rzZDiO4PxoTV2NPRzYOi7Cae
LLWnwnvP0ZlFSGzemZXPZolQX+FnWh3+3ndfTnvrtpRGqSWHcs7h98DCHItr
GYGjwGiMUDHG+bqx7NZ8vZxhEKrH+sjjfH027Lp7ly4A5/KI22k4X0GSVXtE
63iQqRNZ+gOPb/7pZ5HkGAeqr3glxWOO2vb1Lkt2CBQXtqrvxvlykuoLuG06
AP2xsSmmv947SzvTNE72QXZXQOoh/B6a+dG5olCpB6bUvnt/Eb+XGNoPIvat
5yPV6soWizkMJLgyy7/g8BiUZM5dT+Hv03uL1Isi8SOgG+kXsR/n64q/FM3y
nhAG0ua5A/4+5r3Md3Bg8qFn6Xd2Js7X+0aayYIvXFDuVakPxfv5cdPasx/F
OcBwzXR/g/NQ+bMwT1ZzECKjtUcu4Xwd5M9Yc9a5H3SbSjIScb5eujdlN6wX
IPrA9gyVe3Sk+Kop3kh7GCIahd2qOF8bxZ6F0gwFUDxbR5ON7/vF3XutExx5
MHBoxiJPPN5MBfk0ThgHRFLMNx7G5y2TGqOZa4bP3zj1Lxrer0uP0nUK/bgQ
oclnGOL6hSEe7g3RQ8A7uFGuAefLRfTbyskVAvRD8p+m+cfoyGF4RnPdJZwv
jquEAa6vNyKST2NxIEtpS5YU7s/JIHXtaCgf+H6ZCq54vKIKG0ZnPheCU2R2
HsT1xdseVO1Uxuen9Vzu134wRU5PtxPnw/WkCpsI3P5Qzs9bxw258KMwv70P
s7pd/4iyqBD1vC3wyt5FRx7hR+Z43uPBaIiF50zcvm5TLu9cLRfmvVZRPIF5
tqekJGcNDz7Knsg4hjlEz7xjxnYuMBiajbMxmwaWJugF8GBRWUHKVsxZxlyf
zfFceDnKj3HA3L9j59knIjxozhULDMcczee4LVYVos2KO9q+baYjO6Pl+w8P
43xrqEzxn1aEqsUW++1SFKEWD1jG/InzraeZrrd2JY1iSbHUpHG+505Ki3sT
PAohNoGFn3HekjrTN44UDMPokNLLRpxHPd27Po6lAqjV89l6DOcbLX53VLuR
B0lHat+34/VLuuYLnonj+QtDFdIxV9N4xmPyQ3BTfMf8cJzvHwM16WAxAB9c
vrHP4P7EAz14/4b2wf5ny67W4vHUqyfNktPqAT+O45NhnO8WWuFi1zV85LhC
i1GszEAnKfl5nv5j4KNVw3XA+Wbf6gs3uDYCz+d1T1fE+Y7RmqI1+5EQwgx9
xC/gfA9WeCmMVfEhcAHdORrnO3NA3nrjD7z/ncZTft0Xt2uE5ZkyHKir+EOh
H+d70vXyNVv0B2G05On6KpxvXnvXvuT9/ZBV6pnwEeebZ/Rm87M1AqSTW6Rx
uZCOpl94VSS5bBjWj5zy+orfKwm8GLN8UwEcPVnNfIzz3Sd7ck+xCw8+HFO0
34vHY1959f5xNAfsO3a3h+K87Yi3/m5nxYfjNeGS3Zi3NTOMm09yQV1WftgU
1w8QqubEJwzBdmlWcx/Od+TbjhZaqQAJLzT6xJ+ko9nK2p19iTzQ9QxYoofr
952EH6xaDnjnxxXOw/t/W8tF5E4UH3Q2bZi5Cfcf/MW9SpbOBa+5K5K9fuVR
pLYpVI0HljvfbgjBPGVo7ZvhqXxIzbEyOYbb6z8VZaSbciGVk6E3jHmLZl/W
HKEAGSH1kJkudKSTHbY4jsEDDSevqVK4ffwR5h93X3ChXNysOQhza5TKnHnr
ecDuOmPnj3m9rRNvjTMX3p80SFmAWSyxMXPbKR6ozimysPr1HneZetb/GheM
Nyhv3YX5cZBPwucpPNgur6T7K98PXgxN0ZojRHoSa3N32OL7pbBLR9DKhRZD
s6VncLnn880mh215sHv7lquHMQ/cNMxkZXHB6Ifm4/2Y1zFTGMsUeGC+cSTo
7K/ft1ZChzOLCxnHTQQBmB02DPIalvNAZ9H92JOYdVeZHb0m4MIzG32nX+Pv
VeWV6OsI0aKWKTqnLOmI+Dztvz/i84SJzxMmPk+Y+Dxh4vOEic8TJj5PmPg8
YeLzhInPEyY+P17+n88TJj5PmPg8YeLzhInPEyY+T5j4PGHi84SJzxMmPk+Y
+Dxh4vOEic8TJj5P+H+rz5P5EZ8nTHyeMPF5wsTnCROfHz/P/3yeMPF5wsTn
CROfJ0x8njDxecLE5wkTnydMfJ4w8XnCxKcJ/08+fWqppo2DcSkIIhZOzYln
os8l/BW3MsMn9u9p2cF5WtQ4E/8mTPybMPFfwsR/Cf/uv/Ke67L1A1ngEHCv
6z6diY6fzVG92pwAMMdrzbGFTPQy+K+Wwtii8fGILxMm/kpYMHX17p/yvZBo
oOX9pA7739V6e8s4OrgkrV4gcpiJ9NJtF6eYZI63J75LmPguYeKbhIlvEv7d
N9fLzN7/0LUCJjd2ZJ+oYqJjbCc31WsZsPHKgzadFXg9vqrth/MZ4+MRPyVM
fJHwQW1t/SiHXpBhDy41acDv409BjdbujyFxLDDe8zQTdUjHF4erJ423J35J
2GKfTPOTF73j/Ulu3DY9UsoPFozaz8qQY477ICknPkiY+Bhh4mOEf/cxtlt4
hf/2Skh+/7V/SwMT2e9f8IetThaU3w7yFhgzke2RQ/ssSx6Oj0f8jTDxKcIZ
q1Wvb/PvBZauBbf/BYWso7dearQtBv+9V5fGRDLR4iGxQ9rDl8bbE/8iHOIr
se5i98T6g14Z5wbuOg/Xrzotj1dkjvsSKe+O5c9UXzyxvmXXl/j/FEmGqf3V
C7bp4PrbZnn1Fk70x9RNd2QauY+3J/5DmPjP+P795x+EiX8Q/t0/sqQM/R0a
KyFQ+cVLxj9MtD5P1PnrUDZMuWKc4bKOiS59i11UxHowPh7xFcLEHwiXwXzr
srBe8Dv3Yeuzl9inWst6EsxLwJ96xVa6yETp/4SdE9ZHj7cnvkE4mSfK6RuZ
WP+K71XchnNxwOi0KRFVZo77ASmXnMV5GmM0sT5ZtSElpcQ0EA94E8nSx+fX
Mm2hIzXRn7RIpsOVGmeQMxXVt53KHH/vk/K9XZIxiz5M1KdK6TvmLgkFn0X5
t2fPwveXxQE191Scl/JEiSXY/x3M2+su958Yb0/e74TJ+50weT8TJu9nwr+/
n6PbZjyrlKmChX2yWzpeM5Fh/WDk0ne34cid3QPxZvj7lDs/wmfDxPmQ9zZh
8v4lvEk0PdcnuhcKPCRbDfB9XXje74Y/qwRoXK91brFMxDJntjSsPj/R/r/3
MmFN4zDbbLGJ+UYZVb0Ykb4M78s3GZmoMMfft6Q8aUfAIlOzifqjh5q9C91u
wPflRkOcpUxUMv9SsGTtxH5nuCZF7Cx3h27aeql9Mszx9yop79W98LX560T9
NIsTNMuqcOiak6froMBE+69P79mYP1GerLfj1Opa3/H25P1JOD3pSk1m0f+X
j4n7IzrZuel6LygcGiyQxudN3o+03/4q1VyPiUoyUdZRE8nmzF4wHtovjMf1
f8/L7/3/nsff55/Ea3+4gv/G6P+VF4z3/+T/9lc43v/v/RH+P2AxB/Q=
   "], {{{}, {}, {}, 
     {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
      GraphicsGroupBox[
       PolygonBox[{{385, 426, 427, 381, 407, 339, 384, 410, 355, 376, 402, 
        317, 358, 379, 405, 330, 346, 367, 393, 288, 322, 335, 351, 372, 398, 
        308, 316, 329, 345, 366, 392, 287, 286, 285, 284, 283, 282, 281, 307, 
        315, 328, 344, 365, 391, 280, 321, 334, 350, 371, 397, 306, 
        416}}]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV01WUEAQQQNEFBEFKumNBursbQRQEli6BpWuX7u6QkpKS7u6W7u7u7m44
cPfjnvc1c+ZnAoNDg0LCBQQEfCOsB5hCR6pTnFyEJwI/EJFI/EhkovATUYlG
dGIQk5+JxUGm0okalCA3sTnENDpTk5Lk4SwL6EcjKhCHw0ynC7UoRV7OsZD+
NOZP4nKE/+hKbUpzjZUMpzX5OM8iBtCEisTjKDPoRh1+5TqrGEEb8nOBxQyk
KQ/YzHgqcYu1jKItj9nGJOJzjJl05xk7qMs9NvIPr9hDGW6wmvf8zQt28ZkQ
HrGVj0zkDfv4QgEusoR3DOI5O/lEMx6yhQ9M4DV7qcxt1jGal+ymHU/4n39J
wHFm0YN63GcT4yjLTdYwklAKcomlDKY5QdxhPWNoT0JOMJue/MVvFOIyyxhC
C6qQiJPMoRf1KUdhrrCcobSkKok5xVx604Dfw+Y9SRFNwmnm0YeG/EFRkpKM
5KQgJYGkInXYzXb8omlISzrSk4GMZCIzWchKNrKTgzPMpy/BlKcYV1nBMFpR
jbtsYCwdeMp2JvOW/XwlJ98B5C+BfQ==
       "]]}, 
     {Hue[0.9060679774997897, 0.6, 0.6], 
      LineBox[{254, 388, 362, 341, 325, 312, 304, 255, 256, 257, 258, 259, 
       260, 261, 262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 
       274, 275, 276, 277, 278, 389, 363, 342, 326, 313, 305, 396, 370, 349, 
       333, 320, 279, 390, 364, 343, 327, 404, 378, 357, 314, 401, 375, 354, 
       409, 383, 338, 406, 380, 414, 359, 411}], 
      LineBox[{385, 416, 306, 397, 371, 350, 334, 321, 280, 391, 365, 344, 
       328, 315, 307, 281, 282, 283, 284, 285, 286, 287, 392, 366, 345, 329, 
       316, 308, 398, 372, 351, 335, 322, 288, 393, 367, 346, 330, 405, 379, 
       358, 317, 402, 376, 355, 410, 384, 339, 407, 381}], 
      LineBox[{415, 360, 412, 386, 309, 399, 373, 352, 336, 323, 289, 394, 
       368, 347, 331, 318, 310, 290, 291, 292, 293, 294, 295, 296, 297, 298, 
       299, 300, 301, 302, 395, 369, 348, 332, 319, 311, 400, 374, 353, 337, 
       324, 403, 377, 356, 340, 408, 382, 361, 413, 387, 417, 303}]}, 
     {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{422, 424, 421}], 
      LineBox[{423, 425, 420}]}}, {{}, {}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(i\\)]\\)(t)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  Epilog->{{
     GrayLevel[0], 
     InsetBox[
      FormBox[
       StyleBox[
       "\"\\!\\(\\*SuperscriptBox[\\(\[Chi]\\), \
\\(*\\)]\\)\[TildeTilde].130\"", FontSize -> 12, StripOnInput -> False], 
       TraditionalForm], {-0.4, 0.06}, {0, 0}]}},
  LabelStyle->Directive[FontSize -> 16],
  Method->{"AxesInFront" -> True},
  PlotLabel->FormBox[
    StyleBox[
    "\"(i)  \\!\\(\\*SubscriptBox[\\n \
StyleBox[\\\"t\\\",\\nFontSlant->\\\"Italic\\\"], \
\\\"i\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"\[Tilde]\\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\\!\\(\\*\\nStyleBox[\\\"N\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\
\\nStyleBox[\\\"(\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\
\"-\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"1.5\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"3\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSlant->\\\"Italic\\\"]\\)\"", FontSize -> 
     16, StripOnInput -> False], TraditionalForm],
  PlotRange->{{-4, 1.7}, {0, 0.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic},
  Ticks->{{{-4, 
      FormBox[
       RowBox[{"-", "4"}], TraditionalForm]}, {-1.04, 
      FormBox[
      "\"\\!\\(\\*SuperscriptBox[\\(t\\), \\(*\\)]\\)\[TildeTilde]-1.04\"", 
       TraditionalForm]}, {0, 
      FormBox["0", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, {{0, 
      FormBox["0", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{
  3.483631355102507*^9, 3.483654737126965*^9, 3.4839245167034087`*^9, 
   3.483924663603409*^9, 3.483924697337409*^9, 3.4995338446083245`*^9, 
   3.499535720488894*^9, {3.4995397984316473`*^9, 3.4995398157753816`*^9}, 
   3.4995401593097315`*^9, 3.49954158470916*^9, 3.4995422587999845`*^9, 
   3.4995424742359843`*^9}]
}, Open  ]],

Cell[TextData[{
 "We now turn to an example in which decreasing the variance of the \
distribution of incubment types ",
 StyleBox["decreases ",
  FontSlant->"Italic"],
 "the group's influence over incumbent behavior."
}], "Text",
 CellChangeTimes->{{3.483483083204676*^9, 3.48348311254161*^9}, {
  3.5119030014932785`*^9, 3.511903006013279*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", "=", "5"}], ",", 
     RowBox[{"\[Mu]c", "=", ".5"}], ",", " ", 
     RowBox[{"ki", "=", ".5"}], ",", 
     RowBox[{"kc", "=", ".5"}], ",", 
     RowBox[{"tg", "=", "10"}], ",", 
     RowBox[{"m", "=", "1.5"}], ",", 
     RowBox[{"v", "=", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"FindRoot", "[", "  ", 
      RowBox[{
       RowBox[{"cut", "\[Equal]", "c"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", 
         RowBox[{"-", "1"}]}], " ", "}"}]}], "  ", "]"}], "        ", ",", 
     " ", 
     RowBox[{
      RowBox[{"CDF", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"m", ",", "v"}], "]"}], ",", "0"}], "]"}], "-", " ", 
      RowBox[{"CDF", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"m", ",", "v"}], "]"}], ",", 
        RowBox[{"c", "/.", " ", 
         RowBox[{"FindRoot", "[", "  ", 
          RowBox[{
           RowBox[{"cut", "\[Equal]", "c"}], ",", 
           RowBox[{"{", 
            RowBox[{"c", ",", 
             RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}]}], "]"}]}]}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.483294514589116*^9, 3.4832945394943457`*^9}, {
  3.4832948961740103`*^9, 3.483294902741667*^9}, {3.4995413950605803`*^9, 
  3.4995413961870008`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{"-", "2.078004856242597`"}]}], "}"}], ",", 
   "0.06663408775868455`"}], "}"}]], "Output",
 CellChangeTimes->{{3.4832945267400703`*^9, 3.4832945445418506`*^9}, 
   3.483294905850978*^9, 3.4995414058784137`*^9, 3.49954164709695*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", "=", "5"}], ",", 
     RowBox[{"\[Mu]c", "=", ".5"}], ",", " ", 
     RowBox[{"ki", "=", ".5"}], ",", 
     RowBox[{"kc", "=", ".5"}], ",", 
     RowBox[{"tg", "=", "10"}], ",", 
     RowBox[{"m", "=", "1.5"}], ",", 
     RowBox[{"v", "=", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"FindRoot", "[", "  ", 
      RowBox[{
       RowBox[{"cut", "\[Equal]", "c"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", 
         RowBox[{"-", "1"}]}], " ", "}"}]}], "  ", "]"}], "        ", ",", 
     " ", 
     RowBox[{
      RowBox[{"CDF", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"m", ",", "v"}], "]"}], ",", "0"}], "]"}], "-", " ", 
      RowBox[{"CDF", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"m", ",", "v"}], "]"}], ",", 
        RowBox[{"c", "/.", " ", 
         RowBox[{"FindRoot", "[", "  ", 
          RowBox[{
           RowBox[{"cut", "\[Equal]", "c"}], ",", 
           RowBox[{"{", 
            RowBox[{"c", ",", 
             RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}]}], "]"}]}]}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4832946349298887`*^9, 3.4832946351299086`*^9}, {
  3.483294728046199*^9, 3.483294733765771*^9}, {3.4832949097663693`*^9, 
  3.4832949137097635`*^9}, {3.4995401764124413`*^9, 3.499540194469247*^9}, {
  3.499541400333188*^9, 3.499541401483575*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{"-", "1.645978752778038`"}]}], "}"}], ",", 
   "0.16137012785874127`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.4832946370691023`*^9, 3.4832947364870434`*^9, 3.483294919843377*^9, {
   3.499540183908191*^9, 3.4995401959243927`*^9}, 3.499541407972478*^9, 
   3.4995416504322815`*^9, 3.4995417370913725`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"iv", "=", 
   RowBox[{"Block", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Rho]", "=", "5"}], ",", 
       RowBox[{"\[Mu]c", "=", ".5"}], ",", " ", 
       RowBox[{"ki", "=", ".5"}], ",", 
       RowBox[{"kc", "=", ".5"}], ",", 
       RowBox[{"tg", "=", "10"}], ",", 
       RowBox[{"m", "=", "1.5"}], ",", 
       RowBox[{"v", "=", "1"}]}], "}"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"PDF", "[", 
          RowBox[{
           RowBox[{"NormalDistribution", "[", 
            RowBox[{"m", ",", "v"}], "]"}], ",", "x"}], "]"}], ",", 
         RowBox[{"Piecewise", "[", 
          RowBox[{"{", " ", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", 
              RowBox[{"x", "<", 
               RowBox[{"-", "2.08"}]}]}], "}"}], "    ", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"PDF", "[", 
               RowBox[{
                RowBox[{"NormalDistribution", "[", 
                 RowBox[{"m", ",", "v"}], "]"}], ",", "x"}], "]"}], ",", 
              RowBox[{
               RowBox[{"x", ">", 
                RowBox[{"-", "2.08"}]}], " ", "&&", " ", 
               RowBox[{"x", "<", "0"}]}]}], " ", "}"}], " ", ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", " ", 
              RowBox[{"x", ">", "0"}]}], " ", "}"}]}], "}"}], " ", "]"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "4"}], ",", "1.7"}], "}"}], ",", 
       RowBox[{"Filling", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"2", "\[Rule]", "Axis"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", ".5"}], "}"}]}], ",", " ", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"t", ",", "\"\<\!\(\*SubscriptBox[\(f\), \(i\)]\)(t)\>\""}], 
         "}"}]}], ",", " ", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{"FontSize", "\[Rule]", "16"}], "]"}]}], ",", " ", 
       RowBox[{"Ticks", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "4"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "2.08"}], ",", 
              "\"\<\!\(\*SuperscriptBox[\(t\), \
\(*\)]\)\[TildeTilde]-2.08\>\""}], "}"}], ",", " ", "0", ",", "1"}], "}"}], 
          "  ", ",", 
          RowBox[{"{", "0", " ", "}"}]}], "}"}]}], " ", ",", 
       RowBox[{"PlotLabel", "\[Rule]", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<(iv)  \!\(\*SubscriptBox[
StyleBox[\"t\",
FontSlant->\"Italic\"], \"i\"]\)\!\(\*
StyleBox[\"\[Tilde]\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"N\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"(\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"1.5\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\",\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"1\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\")\",
FontSlant->\"Italic\"]\)\>\"", ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}]}], ",", " ", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Black", ",", 
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<\!\(\*SuperscriptBox[\(\[Chi]\), \(*\)]\)\[TildeTilde].067\
\>\"", ",", 
               RowBox[{"FontSize", "->", "12"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".4"}], ",", ".06"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "}"}], "}"}]}]}], 
      " ", "]"}]}], "]"}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.4836312578514833`*^9, 3.4836313008765593`*^9}, {
   3.4836546447119727`*^9, 3.4836546448679733`*^9}, {3.4836546893282585`*^9, 
   3.483654695084696*^9}, 3.483924080990409*^9, {3.483924129115409*^9, 
   3.4839242093904085`*^9}, {3.4839242577184086`*^9, 3.483924318528409*^9}, {
   3.4839243665984087`*^9, 3.4839243713574085`*^9}, {3.483924484970409*^9, 
   3.483924493059409*^9}, {3.483924630752409*^9, 3.483924630886409*^9}, {
   3.4995417564874325`*^9, 3.499541782939787*^9}, {3.499541860344046*^9, 
   3.4995418709269876`*^9}, {3.4995419217099085`*^9, 
   3.4995419238296967`*^9}, {3.4995420433719845`*^9, 3.499542043962984*^9}, {
   3.4995422050989847`*^9, 3.4995422413999844`*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJztmnk0Ve8X/695HiKKFJExRAkZzkYoKgmlNJiJShJlplCSTCkZMkTIlKQJ
dR5zEUWGe0sSFRkyu9f8u9/1+5y+a33/+v35Xd/1u//c9VrP85y77z7n7P08
e783O5y3cGYkkUgYE4n0r29mHseJ1VU+pHXt0vmxoUAsI9PjR48oH5rgOfLZ
PDEK8+qIqb0oyYtKsywkd5xIxn5oypNDtXiQetCpjZ59uZjs9IZyUWtuNHEg
xDpMuhx7cEAqwMOOC/2JjjMzOF6DVZJzLmv6c6Jg3V93D7z8gHEza9tWhXKg
k0uaW7P39mDKEfK8LTfZke9QyOLkvSFsXD1hyjKPDckk7o4oPjqDDUXy1SQ+
ZkU1loYv7pszQAgXW+O+tywoIH7+WZ8ANwwNHLkd+5MZsXd2uEgaCkPkiUrT
W+NMqO+YFy/PRkloZEnRYOBkQurJDDdN5BQBO3iLb9saRsSRdytDykkdrv0h
l/wWY0AjJuzXjrjqw7k36WGiu0jozactHTZjJiB8cuoaZ/gK/qJrzc+YMkuI
S0+98P75Ep6Ov+9ZW3ECfCU8tjPWLuB7cpw/VR90BmazySuHyDQ8OYz0wGHS
A1p6Tuvc4qXia7z0Q70zfYCliKNFZ9Ms7rJin0vND4aAnvS3ZLNpnN3Ile3t
TDgkvvxhERM5ia8v5lFr2hQNGgV5Luc1xvEQD/njVwRvQ+1Dj+WUjBE8zyAx
8RNbMihKRuqVVAziO9L4FVZiM+HLLGPWzOAAfioyKD8n+CGwRrt0C1r34QIT
gQXefIUgZrzLe+cUGS/u6XEykHgCUvOXfs68asMpL55p3eN7Buef/ZHcub8e
1z/hoHnC/xWoTPwsDUR5uMqr06xLP95Am8uTnzLvSmE1fKkwTa8GTn/LtMsb
a4S0wiF217h6eE1yXCzU+ATP5CUwxa9vQXOgjGuT1WeImp/etEbnPSx/L7G3
Y/kO8ttfVTfNfoDvsamD5PQf8DNptrGuvA2GqnZWu0UMgTg/eLde+QQFCR5B
jcdG4bOgwRcN6U6YePjGcf/oOCQ76Gw2vdIFSmK9rTM/JyE6nO9C9+tu2BI+
ROounwbBtBKWjVlkuKxnkJPhPwuM4p0bszUocKLK68KMCxXEe4bjnoVRgKm7
5NOJ7fPQUP8LmC5RQPvAvOCOHYsw6m8w381Kgfau0+4et/jQaPrgYlVWGBZZ
sWKZn86LVI3ZwMEpAStk7TngX8KDHn7dObWBLwtjvSvZ0PKWG51lkXG3Ol2C
OWVmJNV94UImtlJMP7BKTFnQyc9yjBN1rljuWL/1Leb05/wZ/2UO1KFbprRG
sxO7b1j23JCVAznAsya5x/0Yb+/J0DgRdiSlvtLS9XgcG/1mbuO9lQ3FHn8Z
8iZpAVMzvWk4oc2KpgPrlJWEWKGcqlw8doQFaU1euVRbvgY0JTjOx7gzI2U4
xPX1ohjIPVHQbwxkQtKXUn/fSJeBqwW3pe7dYkQy/D8PPnqnCv2bdthyJzEg
KY6j5FtUbfDv0hZhLCShOfMtF1yMjYA2uq5RPGAVP3fT2BgYzeHTsnHgmfvL
eHoRz1ejT9YQ/o3ZYrBqEQ8ULQvdf90esBfbPj9qmcefO50Oa3zlBqeFlGzP
T1PxPTXlngIWXuBm+IrZWXgO/7EvyHDbez/QM+xoilKfwUfefff4MH0FIpuq
bz09M4X/FtyRwGseCWRjMSaphAm8ruPyA4XTcbAsy7U94swYHhYoGNLafwdo
jovpW4p/49+Zfn/ZQEkD5uh6z0NtP/GprtUjPb8ewARS0wkX78dfywcNFMnm
w4G0uxMcUn9AdmCkCSidkPDiVCjPnwlw1AkU3C/XDXLmA4POLVNweSV2k6Um
Gcwc7lhUJs3A60fxUhWzZHAP/szZ5DkH5dkFefvdKFD6Lu5B/n4arByzUJK4
TgFxgY7pxu0L4N1rZfDVlAIjk85KLxr40FFda1mlz6FYYrF6Wk0PL/q2Nifh
6N5YLObcM/bLQzyI6d2aUOzcfcxnUPpgHgMPsrCLnI9wKMAa3n19eF6EHm+F
N3P7e77ATpfuXuiT4UI1seGK2gL1WJxj1AWKNifSL1OP8LZpx6xy5qJCd3Og
DbZWQUq7+7D0J7sbSyzYkfLwH/3msRHM4+YFGSc3NsRinV8WYkTFYtwOhNX4
sKINlV+ZOmKZIIVhQ0VaLAtq9/2d1x7FB/yMKgx8+cwIHf8j7KEsAmTWaSOF
50zoK5/fSgdsgS3ku8XvmxmRQUzLrfUF24Bfw+7Fxg4GpEJiKubj2AWhDpw/
ZgdIyFcy9flv2A2/yxVcC+ZWcd9jlje3f9oP3sVpDJX8K7jcr61epKLDwAkf
v1N2LeEj4acCP+K28GXEjPXI3gXcoLJsw8BZV3iuGuvZ50zDt3/KaH3U7Qmp
/PESfglzeHPcvY8JWZdBkvan2bFgBm/+dJw15V4oXLVU2Wr8dQpHTAvdpYnX
4HkIqfAozyTuKzsaPeQYA6Jux/b7H/qDe6mESfZ6JkIv885W29xhXKT+3KtD
/SmwvjuXvFr/C9+sd/Zh7NMscPmS6lHFNICbLUmoBjfnQmAS44vT2BgsH5Pm
zQntBCMWcYqI1wT4Lgvc+9bVBQrP7Y4XH5uCmwMdjlrL3bBr+o28icwMGI0m
k5+3kMHTNqa7fHYWRMrXDRy1pABrLUNUK4UKJywXfJboz1O8d7VjQtk86JXG
LN9xpMDLyjN50lZ8KHSU9bDQ52tYUGMDV4wdL9I6c2LAJvUO9jaD8XaQNw8S
esmpalSbjd01FNedieVGBVnzrzZefYIxXba/IZLOhaoa45dUcnBsxiecVv+U
E1V8zf/wo6wZ0/Q77LwB50AVhoarLlfJ2K8f5/rZ37EjjqDl4Rivn1gwp+8u
rz42dODG4APhuUnMXU0lJnyMFe077Ldt14kV7LPCO5ZNjKxocjf+LmWIHVrH
DDKxTSzoipqU60qPINhh/T08Ssyof26b8WE+CfA97qDjtJsJvcnBNZVAHvoC
45IdDzKipUatOUfqDihnZWVbPMaARAX417WrA3ibnjPj9SIhptF31u+C9wCb
NIvsndUVfJUmYM1cdwi2m03ObVBYxgusNeUYFW1gJWRXzQws4n5CNpjqEUfI
uspfsmwxj3eJh2xh1joLovNNB1ZCqXjNd3LPs98XQcP3+5B5yiwuymq1h00q
EE7FvXr3pGYa52j8pHjGNQxi9C0nJBYm8UzPUfk9clGwwKN5fEx4Am/fGM3K
/DQe+tzSZRncJ+Hkat0hG59ukBl29t6kPw1Nsf0tKx5kcGg7E6DEMQsmRbde
84lQwPG+DPZtZA4sJCMMz/tRwOajeOVVnAYfpH5rb75CgeLHv8KWyxbgPM/l
mJGtFPAN+RFzfIAPDTkZtA1ohGCieRbowyIvir/2fKmwKxojbZZ08WHhRX4x
RauCFqmYYlye4NpNPGju7dEnggn52KXeJUUjTW6UGn4hqKTyGcYS8rQibzcX
UjVy79ldWIvJpCfNsB/nRLGfUlQU+NswlY71PpscOJDyyl5Gt8O9mEvq82Hd
8+yIYU7BPFB9GFP+foX7RCQbWr85REqudhbT9it5UJjAiop2+AyMuDJCNGu8
3kwhC8pI8N2TV8MDS167TT80MKN9OZFtQSXroFTV+u2Xdia0oUXC1UxWCuY8
7k39GmZErmaKuoM9SiBbe8kxd4oB/ZQ519xRrAFh+RfenScxIN8B8W/iZgZw
gTvli4YoCaV5e3WD9T4withT52C6gq8NdhOqf2QFLX+eyVv6LuHCLAXximqn
QOHaKbGiiAV8Re2hQ/xRF/gKevPrM2i4iu7pU1+2eEL5XKBy2Mc5/JMC5cpK
6iVYaxG43/zHDI4VUJj9BkNgJWnQj094GueHslbH6giQTpsKnjadxBfVZbJj
dG5B/o1QinfdH7yMrNJRgN8G884252XJEfzxmpyPKZPJ8CAwidtabxD3NSQn
d4tnQebpD9fJPgN4PEWhQFEqFwTvaIqufz8KT1QLWI0sO2GTYgiLhNoEtHO2
xt8t6gJFN3GhNvEpgDcSY3y93VBSaSkUNzYN2/cO7lh8QYaZg0O6Ci9nIW48
XWanMQWeQEWQfSYVjpMvWgRdo0CT9MvUy17zkPJoL1vSOQoYmQyzN3nyoewP
U/veK0dgjNX921JDeJFtgUDtj/HbmJbl+YmAeB7UOcvMOnHiAWY2lslgX8SN
AvJVq6UOlWLlN0P5x6u40PEWO7GTJ19j8YYzL6M/ciILK7Z1en3vsNanDkOm
vRxoJtNg/+vWLqxmbdz73EF2xJWgckGX5QdmPDN8gmGZDRk7u4SP9k5gW6P0
vAO52dDqqNMy2X0Ju66lIM0mzork/KWPpHizQfXUS5m7Wixoqi0217VaAPY/
npVu3Uff7+y8qj6svQnMrzW8EbJjQtkH3Tw1f8kC/aHvDfJgRKx7DsWzUbZD
c4LY0zBfBrTtXOrc/WhduBzXsSMyhoRcbH+cWX/CGEg3eC/b6K7ijY1pIvVf
zYFRJu1VreMyvtVBKUtz/ihUbxPn9AhexD2vSO697+YAE2ISdZZx8zj/h0Ne
MO0O+myBXeoVVPxhmIepuOhFMD/VMmdDnsVJWU21vyb94eCwsWn60jROzRAW
Cyi4ClzXOGF4+xR+QDul2lfzBrgpKGyLtJrAEwNeMUxzxsOruBVLNsVJODW5
T8PhYDfI3t+ibMA2DZ331Is1rchATia5en+cgZuW2quLbBT4dSs0x6pkDmwo
VT/Xe1GA5QC5ROgaDTpvOPbXhdPH7b5W9nstwP4PeqoKOhQ45TTYLFDAh3wt
QKpb5SrGWy7q++w1PZ4Y/NG6NheHiVXsLfRt5kHr2vW4j5VmYG+wnCitn9yo
fXtby1fLIkzo2ZtNKQtcKOlI2bf1xq+w5u+fdolyciFWoZKyh/EN2IJc0J9H
YpwIu6JtHl31CfP17sjs38KB4h8N4r89vmNdjR+zxdXZEWmhItQejWHFO+31
zpqyoUa/F5xK32lYnYICxmg7AyhZpm1/PxnGPNQuwI45eNNVwsdtS4HjxiZ3
tQVpYB9eUL09kgJHa5u2Fk/Nw+avfYyMRykwyt4d+0t/Fv7Qf3ZKjgJ9Re+7
3eSpsMWIIcQshAIllq6N4zQa2BR5NuwMpID3yvi+9dML8Mj3jP0WUQpgDdl4
8SQf4vU9pTTKGYz1ZNtZHOHiQ0bPYe7945vYK39y4owgL1J/YsGdbZGCRToN
+Zgq8iC3PbZqkc/ysNbT0ROP93Aj96Do+79GyzErlxFRLgsu9GqftlUAqRbz
1N70PNOdE+3rqlx3+eJHbNOovPu5CxzoaeoWSo7pV8yU3zMwIogd/dySOnnH
6TfGyx212p3EhngL3WdYuGYxAQbb7RJZrOj8ydgu+MwArBzvmSQqWJBSJcWk
eZAbvLa2eGzrYkY2vCETj+eEQWzPjRtq35nQTUoqi2emJJzSEhHyXmBE+d++
JCWvKsJ2jquvhhkYERPrjBKZVQPC90lXFfEyoNibVmEOFH0475y27ZE8CYlq
jCmszzQF5cm0h+quK/i4tYXkR0UrKGnIb4lNWsIjDxebLXifhEOWLrLWOQv4
mJ2bIGp3homGe7rPKmn45ilNl+HU84B+e+2MHJ/DRwK/nV8WuwTcqzXRxgyz
+MT9FoUu4xDQ0dq92Xv7NJ6dHOxnYBMBJwpGhpDbJM65f3NiUFE0TIislZha
/oMPsNTdnDt9G6J0M1X324/g1umMXl8CksH1Q2zu1aBB/OtRd0HP7kzAtrkl
/ioZwFder9P0/PgQem9/ah5PGAXGofWdljqdcBMeb5ASmoBMzyfW/EldUFSz
MtnPOAX+EYbSQq3d8Ft8080dbdMwGKKnVVpEBvW9QpNOybMQKbehXgTo+7fg
u9SCMCoUn+0PMYiggEvwUw13C/p5U/Y9efUCBbjjHu0SC+FD4fvi9mQ4hWP1
ryeqN8fyojNLL76YytzGpoqkxRczeFBl0C09/qdZWEH1d8ekCm6UwPKM73Lo
Y4xbmL/j2HsuFNM1wqtvUoX1bVUUmejlRD5iOx+IML7DRA79ftQ/xoF41hy7
/3O1EytVzKqenWNHVeaF3g7WA5iCW86fvVzsaI4WZuRzbALjfrbXlbaBDcXp
tDhlBC1ip2o+lwcosSLsJ0u1Qw0raM1O/67ey4KgN19z9y4BqHENMVU+zowG
QD4122ojVKXSQjw8mFBjP6OLkZ4siH4TYOAKZkQWwUdPhx/cDl1kWY631xnQ
d7/ByVBcB3x3RMrUp5HQuM1V4fwPRrCkJSiue2IV7z5hZVzmYQ7D8ZMpSaHL
+OWbVzYWOR2FB2wCJQX3F3HqRGLrdqo9rBuW/bBSMo9nKeAe363cwSqmQ/RT
FxXfXxvutPWZF5w4VLtsS53FzXDj5OyT/rA36VZUosgM/vLAjnO2ZlfBVM7l
l9nBKXznxl6STW0kZGpKJR++OIF7F75+M/gyDmRylN05eSZhjev50AXtbsif
Y+KyGp4C3Mk7wc2YDIIrTT3rymcAw3ILSatkkLtWbB0bOwefJxvPfKfnU5ub
5XK2bjTI9pVJ2UDPt1dfka07LRbAWe7hsWe7KbClMHfJ6SUfIjcZaR69egVr
K5Xj1GnhRWlSPTUcpnFYp+AqhUrhQSZ8e9KybqRjooI/Rz2nuZEj/2evqSOF
mAeY9TNzcqMDX1pPc1q/xETfcaUEredCb8yO7X/XWo8ZNTCV6ityIqmLHCfP
sX/CXKJ/3lFV40C95kElsV19WIVO1E5XQ3a0Or0hKPHTKBZj57Zj6BgbeisQ
bCjIT8NWYmaePjSg55O3CxUyZDIou9pv8V9LzydT0sV2x+jn3XBp/og5KhxQ
93+pR4+3MxsaGjPa50Emxkl35SQFZM9lsURJz8L+WLMbspspIPlwPiqHkwr+
wcLkW/T4ypywW39XDw3Wph727AimAL/1yCDnpwV4YjfVqSlFgTLryqjxrlkY
zheamdlPgRMMvUzrX1OhzfzNkjP9PKTcUrUanjAPWSLmpHenKZBzx3JSpGUO
GOq+/pryodvHu6T2/gENIh5SBcTC6O8j+zmxqW00MJARSGinr08vz9iybS8V
anbXij6h76+PCt08kCs0D1LpV62N6Ptv8sOZx9KCi5Abzni/hJ8CWW5M5C4a
H4LdeVO3fYMw7IFrqoggH/oivsXtkcRN7G7eDkW1DbxIcyPz4MGuZOx5K3ue
8w4eFOqRkbPGNA9bULKycD7IjWwWXEL3R5Zji8fYmnWOcaE+xomibcU1mHDU
97tnvThR80K8l7TsR0zIt+zHWj8OlLyxfGPc2x6sqmm/0aNwdhRnKBS+sjyE
BW/mnb+TwYbOKS6YSj2ZwZYNNfxt8lmRxmfdveOJDGAQ5fZzZzULsufZY5AS
yA3FbAJXvn1lRhZrNzvUpglD+yHJYbshJiQzfMbb/JQkCGQey9ViZEKuWxn3
qN1WBM2i6z+iORjRyU/rw+bK1YFlY8jOZiEGFH5YQZ8tUx/+xN+n2KuSkFN0
Ma5kbAqSeXvuZvqs4I6XNAeOjVtCxvYH4sp5S7i2iqXNqvBJ+LFruKjo6QLe
G+frMhjnDP6c9bZMTTTc88aFd5jxeTAeGHvJuTqHL6/dnOze6wORh38VVfPN
4kb1/csx1GA4wTXpnas3jRvEHakwl40AX9Wh+7J+k7jgeFz+UedoWNt/srZU
dBzP71EyXovdhtwL15Muho7gHbFVlEz9ZGii3by4Pm0Qt59pv3nvaSZECzxP
Odc8gI9KrD97Nu8hGApm5Ry/NAp308Slm1U6wcCkMTeHZQLMdBmVd0Z3wdnz
Hn1nZiZhT45xxkp9N7BaMBmz1E5DfGtF5nguGY7UFZoyRs3CTVbpTjdtCqje
Dy8/6EMFLifhfdfo+61yhScRjgbz8CeoQYfXmwLnd3BYGF3jQ9Umyr/2MoZj
MlVUzp93eZHdWXuaU10C1koJfa6Vx4OyyI++HbfLwshbGe+UVXOjyvwbrDun
SzDNL907+Tq4kO/aA0vfaiqx6+J7323+xYl4efQ6X9x5i73JKIoqmeVAkutM
cjeldmK5L+V17q+wo7q7E3qJjANYmtSVF2cF2NG9fSXn1NZPYIFN7+2eS7Gh
NTZfDjVyLGImrE+XnqmxotvaRWT5M6xw+VJ8c/dBFhT/a2JX3NwaWN5dd6LX
gRmRcArvxQEx8MqN70vxYUK3doea9f+RgVZDy4S2CEYUHnTWVIp7O/QEKKm5
xzIgkWET/h82OpDjqcvZnU1CSQ8vB4ndNIKF20IXS86s4npqT0ulNc2hd0/a
TYbYZVzQ57jcnQ1H4fZFLpJJ8SKe/uHC7/E39lDwsdDK6s08rs5T8mOU1R16
20i6m39Scf2OQUanMC/oN8Wu9LPO4UmjsiZxa/2hbqy0gE9uBtdY8+XAL4mr
4DYvqHXl5BS+aB6u5X8jEqpwcbOqqxP4blRQaBsXBz3FxrM3lyeg06RdUHF7
N5zOvjjf82UKDtqc0nYFMqiolCb9fjgDpnspb10WyGDCaPhEMXQOSH4jjx+c
oUBEwYOfTMdpMLtjVS6fHv8/Onc9bDVYgGqT05WH91Ag0oxVKAanxxObs00B
Slew7Y+3Wa528KKuU7Pad0djsTI9mwsa33nQyaR86a0L97G9QSybohe4UaDb
7cbSLwVYCrOwYcUabsRg2iH1ov8FVl0la/pYnAuJUXqTK8/XY8NrG+N41DhR
Pout2+PSduzkeg9+ijYHeo8OCRtE92GKVJeVqH3sqLeX+3a77Si24jOmmGvP
hlxZSlsXH1ExsWqKx2W1GVistF6mtpPh4AA1aB3LHNSzrJifPkKBL9mCLfJD
VFiTfqBXjh7/Dd7WCiXXzENO65onXXYUMMy4ho6vmwUdCSEl6Y308c1xP/QX
54D9d5sJZwAFtj1RXfnaQoM4Y1tBllD6+YPp907mWnp+TDH1TJelwKdPh35E
N87C0ebk8EwTClyTeI+qSqjQwaw/tkj3Z6BfxYHgq/PwOmIpV4fu7/o1w6Yv
Xs/BipXCvTX09+uz0vCkZyIN7nwrr1qgx38V2eOUu5tpcH3mwwQ33V5cRT34
vSYVhvtY427Sfz9MzY9zH9s8rLsyWN/oTwEZi6nlTUyL8IRq+MBHiAI9p/K1
WBOo8P5GpNIwfT+ncrbhTMVlGqTe2XDVn87XnDUs+5hpUB1izGxIvz6DvKMq
mygVfqptHpkPoseD/nHji81U6EwaCamk55+IcR5f2Sc04HQ1GpS7SvfnULDt
AYwGfwRXHobRx4M0OZrjrakwUcMuhtPHo+bn7BWlFqGulmz7gYsCFto7nM4s
8aEtdwDOqARhHptHYFGYD8n66aVs+RyFMWPfqZ828SLty+etFu8lYy1MyTCt
zoO+NZtUsgrlYXH8mkx6ltxobW2hWcmRcqzVUii78wT9vLZ2JponvAY7rbr7
usUlTsQSYCkSyPAR438zlzUUyIG0BvrUD0f2YLOylfLakezo66yH7p7mIUxd
8eOsdzYbGms/IlUZPoNNuUilUwtZkeZTm+5cLwboM9XsQnUs6NFYDyVmDzc0
+ahFvfjOjHbqh7wy8RQGpW4PUeoIExK4fcfltq4kjLbP/9nIyoQy2l72x55U
hMogzoWTPIzoq+uLM2ei1aGBRdHLRoQB8a259jg5TB+U5dKVsZ0k5GD+KypL
xBTEGO/HdAau4G6S6cLfPlrCvaH0vcslS/j8fR3N00MnQFmp6Lx15QJ+cETG
CvN0BlD84qnQRsN/Xv76/fmG88BpV7jQzEqPJy0RHCdwH2gg0XRWhWfxYyp2
Z5Q+BsPodGM6vmcaD6hcZ7rKEwGsPi60z6GT+JtdJSUr+tEg08AoxC8/jstv
5BlFcrehnCvAlC1uBJeauXunaEsyBPBw2jgWDuJrHx+sqM3KBLXwno1PKAP4
7ANDbobbD4Hazha/5vQozPX9bmPc2glaabnkpsVxOH1J70H1tS54b5RrrTI2
CX03GMXGqrtBaMRH6k/lNHiJxCWw55DBhfEy1fzqLMgG1x66sYsCDUWLApIe
VODXigmWoOejHlKpop3WPMhWtg1z0fdLEiy7eik3+BA3c75UU1sYZq0d8Lgh
hRet7XjRIJuYgOl4Kl/9XMCDRLaW47c0srBxuwQlvXpuNDK6LOdXXIK1vq78
9bubC4VPxzDfDa3EbESOZFX85kSVW3uUVezeYmv28AYkznOg/qwnSvZundiD
lXPznowcKE/Y61oZuR/rDB1PXRFiR9Oy1IP94+OYWmfMyTuybMjNZ5PHjY8L
GCaXIWGpyYqs7lgCsx4rCGvYVTlYsiBb70Nwq3MNiJb9cn7uwoxEo58K+BSK
QcvWXn5VPyZkfN+MltggA/mXpz+X32BEF8Wt774bVgXbA6Um2rcZkHfqg+P8
8jpQMRbT45VHQnCx1OnMaSPwQ8IbXS+u4pI8l9o3bjQH8oPJMPW7y/jHwKeF
VlRriJZnl1//bBFPDjE4xZltDzO159at1s/jHxqTzur1uUH2tLDZ3lEqbvQq
I6bI3QtyGxdrsnnncJru0G2TCT9gTK7ROrBtBt9UwZxlxnkVaN+HHVOcpvDh
5fmxZ2cjwZQpPf981AT++W1Li1ZgHLwoa694PzsBSr4hhphSN7z1K/TM6piC
VoFsp2/aZIB3kj7t6TNwV4HcIkAjg40e36kA3zkIrppM9HengGiFiGGXJQ1y
UXTVL3r8pGl37m/WWgCTxYEUMXp81ZJQz5Ks5UPBDXEq2UxXMEflp9Q+Mi9q
y1M5x58Si0l0s+l2/+BBz4+6mzo9vY+dKrvzXGSFG7XYFPNT0gswlcH5mUQh
btToVOt85NELLPH5Tsm9UlyoJ4Z9U5NePaZbJXdlWoMT3TJ2W7SPaMeOnipr
KQIOtHvdJVqcax/mbNXZL3aQno+UGhaTZEax56GP5SOc2dA7iUsvoi5TMQWb
/fvtlGYgr1H0xbGPZLDbXKvgsjwLZ9leBwxYUcDzadTWpT4qNBoOaAvR4697
ek3VnYp5UO+sDNzlQAFLzfn7hvyzUDAi1S22gR4/bY/Hx03PQeBQwzOgx/s6
lH+itIEGX3ZIvLhDzwfXKIM9pMoFeCjyjO+tPAV+rNkY/wWfhTUTXWVj9Pwt
prJbPDaPCgd9t6vidH9mH3w14+8/D0cd7UnnzlKg6+AzKstz+n6AW2jr+ot0
+3TtzXffosH9UiU7B/r716DeruEmSoMrYaQzknR7P3owbN2gSgXTjnW08RAK
rDecOL2RNA+X+sWtrtDz5QG5yZwNiwvgrR/I9XEdBS54iCeTo6ggX1o+eI+e
f+oDdJuiPWkQJK2S0ULnDT4lT8qWqSDLqzzxr3wk4Krce1iACtl5u9uM6fmo
YdLloVEdFUTYxg7epucb0dXwrvlHNPDL2MXzkJ5vPGmzr8U1aJAknV9cTB+P
udRxue8gPX5sq+fWpo8/+TDLLr9hEa5FhDMb8FIg7RbPkaBAKmwdMpr7Rf9/
Eylbr6s60PNvwAcvJ7p/jBPTPKzH6faEK53UoNszyX/YYfgZFdrb/a/toF8/
dd0P/zo5Gth9kLacovPEYTTDw02DmyJ1M7r0+WntvkOZ7VRQwrOie+njxhQ2
hgAjGvQfUgqworODFK1i29ZFSHv7sfQIB/18+Y++hfTPh9C3EEzoWwgm9C0E
E/oWggl9C8GEvoVgQt9CMKFvIZjQtxBM6FsIJvQtf8f/0bcQTOhbCCb0LQQT
+haCCX0Lwf9f3/L/pm8h/EXoWwgm9C0EE/oWggl9C8GEvuXv/fxH30IwoW8h
mNC3EEzoWwgm9C0EE/oWggl9C8GEvoVgQt9CMKFvIZjQexD8v6b3CFCVO2il
U4lr80X+3rWhCn5UzKs9yA779/1+V+W2UR79ZUK/QTCh3yCY0DMQ/L+mZxB2
1X+4zacaz/CVak2vr4DLV/KkErsTcM1KPp734gg+Bt7pKb318q9/CH0Cwf/t
/fmmxBZLk5inOG9j0T7+gNegnG6umKqb/dd+ot9OMNFvJ5joPxP8v9Z/NuBd
71RmV4srZR6dLt1UAZfIJ+yl7mbifbbG45rxOHy8IPX9TGH5X/8Q/eS/8em/
vJ8qOeDfZub8At9tkPvl27sqGOSOfRUmc++v/UR/lGDOvYcFrnF54Vx1vO0c
vgg8mVndEg+T0Fn10nzmx3v/9guJ+US/kGCif0bw/1r/jGwfVnvxSB1eX4qZ
7Hj/CiydNnOYb83BuWW/kDu1cDA/6+5oUlH21z9EP+zv+/Vf3g8yizoU12b+
Cg/3ldur7VUFirMs7gpLcX/tJ/o7BPt/0sn3sbmO047/sXm3D4FX3qvjbY4k
ZLzrZZOi0N6//Q5i/vZklYtjDCm4XNhs0pYhHC6NSejvCyUhdyMh97cjxvBG
Kd36jbbz3/lEf4Jgoj9BMFGvJ/h/rV6fw7XrolVbHd74ivX39uxXYFDAdPLX
7EN8lcOsqpsPh7jft7a8rH7y1z9E/Z1gboZsq9uNJ//yf1v9+cfXqvEE4wp8
Mc5ePte4CtLbr4YvtkT9tZeoJxOsNlJPbQ2PwcNbIvfW7EQw7SvYOe5OQhNv
JXJuvdvzt75KzOeTnhUVTbqP3zr3oup+FQ5zb/wr3K6T0FMXM8fr2cbwj39w
XR2hs76R6G89lFhPs1cuzr1DQjlul076CRkDqnx6VEwlFP+Al2l8t0dgZfy9
KX7K9+98on5JMFG/JJio5xH8v1bPi+oTbK7jrccvjKnZ1MS8gl0tM9dUv+Ti
j2ZUbzsvvAGVfPGI80b/fl6J+hzBzCz5S7F5/95v/rfVp0qve2VcrK7ANdzC
RodVqqDa+E1Pq+b1fz8v/9SbCI7Urv+wzB2Pz6yX46tXQFBuj9aEeJCQ/h0P
Y/6cPX/rL8T8Ffduj1L7DHzkXofAYC4Oz/NkqbQoElKXUX37LMQYMu3uRRyr
ccarU/c4bAlDf+slxPqXpl9+70wmobr2GcnLU0Zwf48vyaQ+DK97/0Hl0xEE
KcpHAzTfXvg7n6hvEGzY075uUyYJmbWsuyj62Aj+M34Q9QfSf3wqDI+4cqUh
+M/1/3k///N9I/pjYc3/mr8T7tG+l6nNd2r/3/HSv9f7z/UE/x+wxYUu
   "], {{{}, {}, {}, 
     {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
      GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwVzttPz3Ecx/FvNW5CKMlFiNi0NDa3jA7OpP4EhAq5yjmltsgh3TgkctqI
HNqyJqcQNiRi07hxzKm6QDlt9Ojisef79/p8L35xS/My14YGQRBCA9PCgmA6
MwgjiXofDNSpvHD/Y5K7RF8S4k7klPs+3YzyO0MrqOM5f5loX6fFnOQeXcTY
l2g6i1lEHts5wV06Gem7hdr/p4s4TjNfifa2QNdQyDHu8IUR3ubrarZRzW0+
E+Vtnu7jEs/4wwR7rhZwlFt8ItI+V8u5SBu/ibfn6FaO0MRHhtvn6F4u8JRf
jLdn6xaquEkHw+yzdQ/necJPxtlX6WYOc4MPDLWn6W5qaaWXOPtK3UQl13lP
hD1Vd3GOx/Qw1r5CN3KIa7xjiD1FyzhLCz8YY8/SDRzkKm8ZbE/WndTwiO+M
ti/X9RygkTcMss/SHZzhId+ItS/TfPZzhdeE22fqZdr5T4KtVF8R6p7MafcA
ncIDdx/F0GNA
        "]]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1VWgFlUUgNFLSXcj3Y2CdEgjkoJ0tygNIiEg3SUgqZSUdKN0d0mpdKiU
gDRSrvOw2Ps7/8x9mhkytOxcq1OkiIiIfJEjIsLc6p9PeWz/nvpE9tt0Z0W5
pgtwzd6blOzS/cJ1bNN1eGL/gQZE8cMMZ8W4rj/gur0Pqdit+4fr2K7r8tQ+
m4ZEdf9MZ8W5oQtyw96Xd9mjB4Tr2KHr8cw+h0ZEc/8sZyX4UxfiT/vXpGav
/iZcx05dn+f2uTTmHfd/76wkf+nC/GXvRxr26YHhOnbpBrywz6MJ0d3/g7NS
/K2L8Le9P2nZrweF69itG/KffT5NieH+2c4+5KYuyk37ANJxQA8O17FHN+Kl
/UeaEdP9c5yV5pYuxi37N6TnoB4SrmOvbswr+wKaE8v9c52V4bYuzm37QDJw
SA8N17FPN+G1fSEtiO3+ec7KckeX4I59EBk5rIeF69ivm/LGvoiWlOSus8Fk
4ogeThwO6Ga8tS+mFaX4x9kQMnNUjyAuB3Xz8KCzxGjNh9zTQ8nCMT2SeBzS
LYjET7oNpbmvh5GV43oU8TmsWxKZpbotZXigh5ONE3o0CTiiWxGFZbodZflX
jyA7J/UYEnJUtyYqy/VnlOOhHkkOftVjScQx3YZorNDtKc8jPYqcnNLjSMxx
3ZZ3WKk/pwKP9WhycVqPJwkndDuis0p/QUWe6DHk5oyeQFJO6s+IwWrdgUo8
1WPJw1k9kWT8qtsTkzW6Ix/xTI8jL+f0tyTnlP6cWKzVnajMcz2efPymJ5GC
0/oLYrNOd+ZjXugJvMfvejIpOaM7EIf1ugtV+E9P5H3+0FNIxVndkbhs0F2p
ykv9Lfk5r7/jXc7p8EGOx0bdjWqk5jdnnYnPJt2d6qThd2ddSMDPugc1SMsf
zrqSkF/0l9QkHenJQEYyUdhHOLOZhaxkIzs5yEkuzvs73UjEZt2TT8jNBWfd
ScwW/RW1eKUnUYALeip5uKh7kIStuhe1ea0n8wEX9TTyckl/SVK26d7E8X2Z
r8txV3/KG/sUCnJJTw/vm+sW6Uo80Pm4bO9JMraHZ9o1S+1V6KPj6h/t5flH
1+Gt/TsKcTk8d65ZYa/OjPCe6sX2j0hv32j+G54H+2r7J2S2bw7Pl/Mr5ldk
dZbcTGOuM3eEd8a+LLzXZlUzg7kpvFdmX7/HMxeE74RZwUxnbgjvqXkvPLPm
qvCemzXNTOYv4T0z6/o9/Kc9VWczC5tpzfXmlfB+2Ffaa5DR/rM5M3xX7Evs
lXkYnlu9xl4rPP/6qtmLFOwM77Hfl9ur8bWOrxfaK3Jf1yOSs2m6CFf1rPA9
cvaT/phH4R3Qa+21yWLfEt5/M7/f/gclGgbF
       "]]}, 
     {Hue[0.9060679774997897, 0.6, 0.6], 
      LineBox[{559, 777, 734, 695, 660, 628, 609, 560, 561, 562, 563, 564, 
       565, 566, 567, 568, 569, 570, 571, 572, 573, 574, 575, 778, 735, 696, 
       661, 629, 610, 796}], LineBox[CompressedData["
1:eJwNyttPiHEcx/GnGjdEcigXVJSNxdj6A3KsJOJPQHKqXDkUyWFzTNwkpChb
keOmC4eiIptIxca4USKkLhyjDa+L197f5/N74lbnrcoNCYKgnqSwIHgcGgRz
dQQ17tkayhv3AWa5/+kr6klmlO2t3qKUraxhiv2rtlHLQeYz2t6ttznJNtYy
1f5Nn3CRQywg3N6jdyhjO1nE2L/rUy5xmIWMsb/Tu5xiB+uItf/Qduo4wiLG
2nu1gdPkk02c/ac+4zJHWUyE/b02coYC1jPN/ks7uEIxSxhn/6D3KGcnG5hu
H9JOrnKMFCLtfXqfs+xiI/H239rFNUpIZbz9ozZRQSGbSLD/0edc5zhpTLB/
0mYq2c1mljLR22dt4RxF5JDOJG/9+oDz7CGXZUR5+6IPqWIveWSwnBVkEu2/
AW2lmn1sYYZ9WF9wgxOsZLJ9UB9xgUTfIbx272em+6++ZJ57JDfdczSM/6xx
Yrs=
       "]], 
      LineBox[{821, 732, 818, 775, 625, 807, 764, 725, 690, 658, 594, 794, 
       751, 712, 677, 645, 626, 595, 596, 597, 598, 599, 600, 601, 602, 603, 
       604, 605, 606, 607, 795, 752, 713, 678, 646, 627, 808, 765, 726, 691, 
       659, 811, 768, 729, 694, 815, 772, 733, 819, 776, 822, 608}]}, 
     {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{825, 827, 824}], 
      LineBox[{826, 828, 753}]}}, {{}, {}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(i\\)]\\)(t)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  Epilog->{{
     GrayLevel[0], 
     InsetBox[
      FormBox[
       StyleBox[
       "\"\\!\\(\\*SuperscriptBox[\\(\[Chi]\\), \
\\(*\\)]\\)\[TildeTilde].067\"", FontSize -> 12, StripOnInput -> False], 
       TraditionalForm], {-0.4, 0.06}, {0, 0}]}},
  LabelStyle->Directive[FontSize -> 16],
  Method->{"AxesInFront" -> True},
  PlotLabel->FormBox[
    StyleBox[
    "\"(iv)  \\!\\(\\*SubscriptBox[\\n \
StyleBox[\\\"t\\\",\\nFontSlant->\\\"Italic\\\"], \
\\\"i\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"\[Tilde]\\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\\!\\(\\*\\nStyleBox[\\\"N\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\
\\nStyleBox[\\\"(\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\
\"1.5\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"1\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\"", FontSize -> 16, StripOnInput -> False], TraditionalForm],
  PlotRange->{{-4, 1.7}, {0, 0.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic},
  Ticks->{{{-4, 
      FormBox[
       RowBox[{"-", "4"}], TraditionalForm]}, {-2.08, 
      FormBox[
      "\"\\!\\(\\*SuperscriptBox[\\(t\\), \\(*\\)]\\)\[TildeTilde]-2.08\"", 
       TraditionalForm]}, {0, 
      FormBox["0", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, {{0, 
      FormBox["0", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{
  3.4836313800938673`*^9, 3.483654646318783*^9, {3.4836546907010674`*^9, 
   3.4836546963639035`*^9}, 3.4839240852824087`*^9, {3.483924131120409*^9, 
   3.483924172344409*^9}, 3.4839242107884088`*^9, {3.4839242743294086`*^9, 
   3.483924320536409*^9}, 3.483924373184409*^9, 3.483924496106409*^9, 
   3.483924778602409*^9, 3.4995372178976197`*^9, 3.499541873552725*^9, 
   3.499541928780202*^9, 3.4995420457659845`*^9, {3.499542206627984*^9, 
   3.499542212026984*^9}, 3.4995422429879847`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  GraphicsBox[{},
   PlotRange->{{0, 1}, {0, 1}}], 
  GraphicsBox[{},
   PlotRange->{{0, 1}, {0, 1}}]}]], "Input",
 CellChangeTimes->{{3.483663825153246*^9, 3.483663860936824*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.483917381892409*^9, 3.4839173820814085`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"iii", "=", 
   RowBox[{"Block", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Rho]", "=", "5"}], ",", 
       RowBox[{"\[Mu]c", "=", ".5"}], ",", " ", 
       RowBox[{"ki", "=", ".5"}], ",", 
       RowBox[{"kc", "=", ".5"}], ",", 
       RowBox[{"tg", "=", "10"}], ",", 
       RowBox[{"m", "=", "1.5"}], ",", 
       RowBox[{"v", "=", "3"}]}], "}"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"PDF", "[", 
          RowBox[{
           RowBox[{"NormalDistribution", "[", 
            RowBox[{"m", ",", "v"}], "]"}], ",", "x"}], "]"}], ",", 
         RowBox[{"Piecewise", "[", 
          RowBox[{"{", " ", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", 
              RowBox[{"x", "<", 
               RowBox[{"-", "1.65"}]}]}], "}"}], "    ", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"PDF", "[", 
               RowBox[{
                RowBox[{"NormalDistribution", "[", 
                 RowBox[{"m", ",", "v"}], "]"}], ",", "x"}], "]"}], ",", 
              RowBox[{
               RowBox[{"x", ">", 
                RowBox[{"-", "1.65"}]}], " ", "&&", " ", 
               RowBox[{"x", "<", "0"}]}]}], " ", "}"}], " ", ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", " ", 
              RowBox[{"x", ">", "0"}]}], " ", "}"}]}], "}"}], " ", "]"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "4"}], ",", "1.7"}], "}"}], ",", 
       RowBox[{"Filling", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"2", "\[Rule]", "Axis"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", ".5"}], "}"}]}], ",", " ", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"t", ",", "\"\<\!\(\*SubscriptBox[\(f\), \(i\)]\)(t)\>\""}], 
         "}"}]}], ",", " ", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{"FontSize", "\[Rule]", "16"}], "]"}]}], ",", " ", 
       RowBox[{"Ticks", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "4"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "1.65"}], ",", 
              "\"\<\!\(\*SuperscriptBox[\(t\), \
\(*\)]\)\[TildeTilde]-1.65\>\""}], "}"}], ",", " ", "0", ",", "1"}], "}"}], 
          "  ", ",", 
          RowBox[{"{", "0", " ", "}"}]}], "}"}]}], " ", ",", 
       RowBox[{"PlotLabel", "\[Rule]", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<(iii)  \!\(\*SubscriptBox[
StyleBox[\"t\",
FontSlant->\"Italic\"], \"i\"]\)\!\(\*
StyleBox[\"\[Tilde]\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"N\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"(\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"1.5\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\",\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"3\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\")\",
FontSlant->\"Italic\"]\)\>\"", ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}]}], ",", " ", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Black", ",", 
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<\!\(\*SuperscriptBox[\(\[Chi]\), \(*\)]\)\[TildeTilde].161\
\>\"", ",", 
               RowBox[{"FontSize", "->", "12"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".4"}], ",", ".06"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "}"}], "}"}]}]}], 
      "]"}]}], "]"}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.483917429330409*^9, 3.4839174297704086`*^9}, {
  3.4839192693214087`*^9, 3.4839193158624086`*^9}, {3.483924101198409*^9, 
  3.4839241121734085`*^9}, {3.4839242175674086`*^9, 3.4839242372984085`*^9}, {
  3.483924336000409*^9, 3.483924358998409*^9}, {3.4995419086632137`*^9, 
  3.499541910279052*^9}, {3.4995419569593835`*^9, 3.499542013662712*^9}, {
  3.4995420641219845`*^9, 3.4995420644669847`*^9}, {3.4995421557169847`*^9, 
  3.499542156276984*^9}, {3.4995422633749847`*^9, 3.4995422636149845`*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJzll/k7ld33x80ioSRFUVRKFKVoskqlkmSKigwV0YBIopKIepQxlDIV4qOM
R8lw3DeSEmUoQ1RkzDyc4wym7/Zc7dN1Pf/C1y+ul732sNZ+39t6rzjlZGTL
w8XF5cXNxTX7m2/e6eGZGTEyUkj9lf3JKIiLd+xokRYjW1qZDgtXPgGXL0Gl
rvKiZB73qJPu2hjo0Fzb6L1tHtlk26a0RiEOFMdkcqTNRMiJwjw+/fB4eHZY
4Zqj9VzyfFpJ/dibp1DQmOiu6SlMGrh/Z277+gxE+LZbFXoLkQIMFTc9yURY
77dWtOreHLLC85XJOfMkGNoSNmqcLEgqaHxXGI14Dj13xUrCMwTIyqOBXzrp
yXBzrmD5off8ZK0vvW7vgf9BT7vpg+BOPjLujmF9bnQq3LUo0A0c4iVv3lr0
TF/qJZTzP9bgFuYlXwksb4zwTgOtI4FiG+bzkAKeNS0q4hngP9iY/nspN9lb
YWjSeCQTLhbF+kpv5SKz+4b3j4lkwaKTo/7Ct6cJhY8elc9asiAk9smlyteT
RMxg0sOL8dlwdbnjRp5SNjFh2UhZfoUCfPojtwwbmcSo4pn57QdyoKrFfkeg
KINIadda+H7eK+B/KVS1Q5ZOpDkUWPX8egXXWmLfN+qPEdzt9JejKa8h/E2H
UdDdEWL3eqeOaIdc0EhNtnPSGCK8puPk9mu+gdIkx6nHcX3EKkf4vn/8DSjL
392Vnt9NGJ4t1zpB5kEznecprbud6JJJX73QJx8E7ts1SJi1EkV3W2OH1Qpg
qc7Wy5tHG4mueZYeyb0FoMC60knLqyHauz32fwgpBKdXg/Kb9cqIar7jHfIq
VFAd7sy8TiYTdsl2KvWfqFBjl9W5+kMmvJrUWZZwsgjsf8ZbJw+UAzubXDw9
WARUrtMTLzTqwCYyt17nIgGa7dlzZU2+wSTPtHr+TwKm2tJtrPnbYJ7Kslyn
NSS0BT/pboztAH5Nxe+NZiT0FG4udvDrAcOc+9WyfiSkhjneKD/eD71vXBM2
vCBhOKnotF7/EPiapjd9fU+CytIfn2idI3DILui1yy8SVt7u4WrIGYNL4hse
LKOR4L5LOzHOkw6u66pYt2ZIsCh0uUSzY0Bb2roxZf5i4G1Ir7PYyILRFak1
a/iKYfthlsSmTRNQ+sLgQMMECbX19uccA8XIY20XxsW1HsMHRaO4R069cPd6
QjLtEQmHoyOHhRQGYUWZ+WBePglhuZbe8waH4cGOwrGb9SSsMWjvtq0aBcl+
zzvC/STon4owKnhIg18Whdfvs0k45/VNuMJ5HNR2hgxs4S2GzA8hz1L0mKBU
UltyEZ1PbsGXsfKNbBB1X6wwylUMfSO2KrnvxMhvjLrq+VVRcGx0j+otz9/g
s1CqYEcwCdcf8uTaaw2AZX/5UXkKCfv45ZqWuAzDFR5WSNtnEpReW5unHR+F
ZUZe4k7dJGwdK1p7cDUNap0Hlt5mkOBsFdSQQ6cDo/Csdjh3MQiUcgd8amLA
Et8rC73QeUIvF58Oy2YBO+/XwgqeYpB9qqT0QnAIIi+GDdCLSWh1iFXkPjcC
poceemW2kLC61/ay7O4xuEb6f9w7TMKpmvPXVITosKT5180tUyScjlmt9bMP
5X92TrMDqv+JarkCH4IJw1nHZiYQp2V0+U5ls+HIsXyFp9MkXL3ZEWTeLkZu
050JWhARBfENhVfpMz0QPxztsS2ABIkITenFlf1w581TM/UMEmSVb/IvVx+G
zAXmZg6VJCg7yEnWyI3CqpIE9mQHCekFxpIhA2NQZ9Ae1UIngXakZ6fSGzr0
9zmKRaF6Z0H+DZt4BmwRncmyQflXrHrzxN2FBboPmE/uovt6HWsdeCJiECon
2+xPF5GQFzJtLKg8ArELhSaTmkhQjFm5XltwDKYvx3zZNEhCYxTX2cvVNPD4
Uqs3gPTVFeidaJI+DpG6mSd/oPX4DzemS/oz4X7slOhutF+X9feCXy5s2NQO
JY1Iv2+VlLR4rGgQpX5aciGLhAFH9UuwaRxqs9sCXdF9mOscjNwuwQS3dYul
fdD8Y6UV69JGWcCffnrXALrP/jkNwV276fBY5Z64Papn68vKBoe1DLBv6DnV
hOqdbny2fIjJBD0fkYhYxJenhw4tHmNDbJyQ/iF0X1rvEoi0ETFyMKR6fKNH
FOzVZUVnlPSAzEOf6ow7JPx4UPdxKKwfnJfsqlNPI+EeZMgoSA7DeanBmWcV
JLwsmR75xTMKr2Oyv+e3k/BbTvbeppoxsJ6+J8CF6r/lgOTImSg6WDjGc81H
9RfwimSk+jLgjKKkpS7Kx86LonHOiAWLdmvcakH18omZ0NpoMQj8Vrb/hBYi
vSWuPyc8bwTELyecXdRIQso471yT3lHgjwNN+QGkj+mKFqkcGuz2EG0EVP81
/mlmwcHjUN7xXiEIrXfiXs4aKwcmLI92vnwC7eeT12j21YgNx56UbnNA55kO
olGStGmQkt4pfIRJwvqzNis9F45De7iFrSCqf+btVeJ+4wyof9Qp74vm02Te
lcfVsoD3qPBlKzSuePEpf8AqOshvrt9Ri+opn8QKSBRmALm+alkSqjdf2J7d
W1uY4N/hfLQasbhZX7dwHRvKmcdmWCg+26wgYKieDp/nhK6SRvdpwf2DdzGV
Ae/Nqgdd0H7rqwpnboexwF/XUl4F5ZMYYTyypGocDALbHyui9TJFJ9UrnzHB
ViQibAWKF5hzcenoBiZsMRNjeyKOzYlbueEAA5aPSqcKzOpH8t7h55Is+DFi
XWSH5jcm0TJWSUwAd84r8YhJEp468DbWM8VIloT9ukPnoyDSVypDJLEHROdv
lLH3J2GvxNNE8yv9oH8jaXjjSxK0D5Y/T+QfhgYRPx3qBxIuODm2nqeNwJPP
BvekkB4EjHh1+EvHwD/y891g9H6bvn2hyxNAh9WRyhYVSP9qMbdzjrgxYCTA
6/wOdL4cpSy/09osGHwvHs2Lztez9INULAwCabbJ9XkBCS1pOvR7U8OwI8db
SK+BBPsEV1ZL8yjs1jeTf4jeY1XVzIe/k2hgHbyuuwu9xwd59mYpe4/Dgs2q
9qdR/fxSn3XymjOhe4ffjzNov2rb+qRP2mxwCJ2JT0d6WFrc5OiuToPBD4cM
etH7eaSdcUOKfxwa3BQpn9D9NCdIVK3tYQDVMcLyFpqv/b5UMqqEBdFuTa8j
kB72xvmT5lJ0yNT1lPFD96u9IqRj98Q4FIbKWNxF+WzIUpv+XsWEPheNgS7E
lry/N/OVsiE0arOvPvp+6+oMO+6X0+F8apzHN3Qe/+WVZGE6qo+knsR5tN91
j/zDXj4saPLIqDFH+ZTN79XNpY7D8QNdzbP1+qbSO+IczgSvBc8lNqJ4VUXz
psgVTBBuZuvdREyobvGq1GTAwXLtrmEU76vuIXxIkAXL51y/4It4tdHolCzv
BEjsrlk+gvTQYpmyTSCMAXxlfRWms+tdeHc+350Jhi8e3tZH7G+rYdzKxwSu
u3Y2s98H99rTaoLSDHhgs3A5idZT+zWk4/qRAT25/+z1QON+Q/OuKmYxYSH7
0z0xxM09XlaHtZgg+MF0hRviG5pCH0PN0Pfz7Fy6NOIA1riNssIEROR+XaaB
zmO0fdOZ85NiZEpY+r7jZ6IA4ldrFoT3gFO9b0op6i8YtYKh8+37IVLb3D0L
9Rfbop83VkwMQeCQz7uDSJ+V+56bqQ6MwKIuTcMy1F9I9rkpDBag92qKVWiK
9GnH484w8KFDxsibU8+RPt+9nFgg78gA3zMireroPC1cmcrW21iwSsffdRHK
73HLBj4TtUG4ZvXIUhXpMze7Nr+SPgxrqEGbu1C/8N7jhfPTL6OwC/z4DZE+
4YO8W20sDY4JrmzLQ/o8sUvM8trVcViqS546jO5TOn/J3npjJjyZa3vLAe3H
3P5V7+M2NsypC42tRnpQOqGnZ61CA4YPxTYX6dN6RamS3RQd6j4/zM5C+nSm
BKybbGWAcxn0zt73udiSwoh8FmwacpfPRPo01mTF7BWnw3AhbfIk0qeRlXlo
yNg4sB/fMPZA+bwlUywy3zFh75Kp5yOI/Zu6W7gK2BCT3SF2FemzY/6y0GaC
DiLMw5N5s9+L6h654GQGTN22fGCH9ks4kkfz9GRBxqSbqwvKp/7IKwb/63EY
Tc0yGUHsvNPGYE8gE4J0hUq2ovh3W2o1HKSZsObYng7v2e/RkXudjBoD9j70
s+hE+y/eO2y/jIsFZWJX1EIRH14zkigzwYYvBR9dZdH5LznKRTUGMNC7oFlm
gOaXXdtZcd+ZCf3Xd6SZIJZxS8/KnkJ6n/jpMqvPBWfX/zi6gAGNMT/qs9F6
70bskva9ZcDrW3a6V9C49Mztetb/mFBzvIdYjNiZSafKaTCh5PEFrauIg658
cW89woBkUO8QR5z1mT5nrcwEXDOMNrZD+owOnGd64zoDIuJuRexB48OP191R
O8WEzKRN36wQ64RHO5oNMYDfzv3S7P/zEfGjp3pfMaDCtVzNCfETqQ7Pt2uY
4PxZy+TG7PyjJG2eCBMUd3kMzsZH117tia9lwI7yrd+vza7XJMh9bR8Tbkh9
enYJ8SkFZv6GdRNg1GDrJIjOg/0g158f7AcxYz+IGftBzNgPYsZ+EDP2g5ix
H8SM/SBm7AcxYz+IGftBzvgfP4gZ+0HM2A9ixn4QM/aDmLEfxIz9IGbsBzFj
P4j5/4sfxPliP4gZ+0HM2A9ixn4QM/aDnPv84wcxYz+IGftBzNgPYsZ+EDP2
g5ixH8SM/SBm7AcxYz+IWSt3w7f/VbGIgQidOY4/KWAvqWLlNMYgai5ozTd9
kQPX1NYcMdlRQHwSM9onfpMKHfks9WcJvn/r9aHQYdlaksPY72HGfg9zc5++
gOkBNlE24LSsOJUCr9WCnVttmUS+snuUjGcOLDq7O2mDWzFRGJ4mc9KUCu63
khXCG8KILVvmaOmOUaH6ekRLZuAbzvrYz2F+6iOePmXEIoxCVX+tXJgDFeFV
xgeDKMTr1aLBW5OpsD7WQPnJzgROPPZnmLE/w6zkb7n0pd/f7+E77GItjmMS
XNtqaV42OaAtuvhMtnUp0ffCJKd6NxWuNFrYKETGE1O/l9Hl2tB5Lym0nUd1
xPOx/+Lc/9Llb41DWIR33Hvr9ywKyLd71ujb5hKC2qLGWx5QoVskOM939SNO
PPZTmO8bwvCMMJvIaEpet6iMAsIHji7wn+tCvE6RKzbhL+L4H859//E/mA2N
7RTNEv/mN/zu0c5XBSi/C4ldqkdzoNHGt9TV9C2xeH7e2A0NKhifWSFksC6R
SBlNnpxuoILBhXOnD+Znc9bH/gazVK/i5+l0FuGjqtn7uJ8C+gGGITUGeYRx
1ed4xX+ooEznP6c0GcKJx34Fc47s/onUtWwiKfbJvr5cCnjW7UhxO3GHEJtb
cN14ksrxFzh+dfD2Q40X/+azMUrVdYD7MeG85ee8rb1UKFKJNSvabsuJx36A
o58/fgBzx9bely8pf9fzFC6z4q1gEnHdFjShIzmQOHerq0nNW0JvWsnNcCMV
tFN5T3bRk4izvw2Dz9dRIeR34Mo3xVl/8/nT72NOrX5hYlLEInKi+e34uijQ
8b1wKEwnn2B4+gkuu02F2Fqf2xNVAZx43L9jPsD/0ZtrK5uooaxaYppFAfW+
Msan20FEs5Bsy2cGldNv4/jIuG+Rplf+5iO2ii4t/TCGkPbh9UrrpIIId4LJ
g/KThL5c56HkOUWc/hjHkwWUY0tVvQm63VvZr1xF4Fhbe++FGZswoRQbKydS
wESnrSJ09ConHvezmHE/i3m9yksns4K/5wHlZmelGiZRd6PTe/xQDgS0Snx8
K1pGpCSNOeZvoMLWKpq/WvNzolL8+9IVNeg9T5Hzc9r3t764X8VMK70oNVPG
ImqHtTfm/aJA5h2XONfifGLkiktf5C0qFOsUtXzSvMOJx/0n5jDm/T0vdrGJ
b0ayEXPTKXB3e9nnKZFQ4uY/mXqBdCqnX8TxrWHRx7m9/uYzfa7BMdMmjrij
FM+0a6dCvPUjv+MltoT0V4naB4JFnP4Ox8fsv8p1sMyX2NCQEBg+TYXnO0Nv
0SzZREeIPXvuUwo8Xn/smub7S5x43I9h/nN/f/9//BT/wGXAJu5f3JN9JZnC
6ZfwuN2/P2wi5LJweHcMhfN3PW19X27hIvjvev89z3+/t//qB6//49/4BHjE
bMtWZ33dfvjf8XROfv+dj/n/AFj0z/s=
   "], {{{}, {}, {}, 
     {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
      GraphicsGroupBox[
       PolygonBox[{{367, 381, 382, 342, 364, 306, 344, 366, 320, 338, 360, 
        287, 323, 341, 363, 298, 312, 330, 352, 260, 291, 302, 316, 334, 356, 
        279, 286, 297, 311, 329, 351, 259, 258, 257, 256, 255, 254, 253, 252, 
        251, 250, 249, 248, 278, 285, 296, 310, 328, 350, 247, 290, 301, 315, 
        333, 355, 277, 305, 319, 337, 359, 284, 371, 
        345}}]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV0VVTFQAQgNGrYrdiJxZ2d3cniCIGil1gd3djoCiKYitid3d3d41/xHMf
znxPOzuzGxaXEBGfKRAI/CPY06xkFD1pSQMyk4UQspKN7OQgJ7nITR7yko/8
FKAghShMKEWYaVlRLUZxSlCSUpSmDGUpR3nCqEBFZpmtpJWpQjhVqUZ1zrCK
0fSiFQ2pwVlWM4betKYRV9jEZKLoRE3OsYax9KENjblKIvEMoDO1OM9axtGX
tjThGptJYCBdqM0F1jGefrTjNtuZwRCacp0tTCGartxnF3MYTh0usp4JRPCY
VBbQnjvsCN6foTTjBluZyiCekcZiuvGAFObynuOM4CUHWcZnTlKXS2zgKxN5
wxEiecJefrCQD6Tzmw7cJZnvwT/zjmP8YhgvOMBPlvKJDP7QnJts4xvTeMtR
YnjOfpbwkRN05yG7mUccrzjEcupxmY1Moj9P2cciOnKPncwmlhbcIonpDKYH
j9jDfEbymsOs4Aun+Et9/gNVwGbV
       "]]}, 
     {Hue[0.9060679774997897, 0.6, 0.6], 
      LineBox[{226, 348, 326, 308, 294, 283, 276, 227, 228, 229, 230, 231, 
       232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 
       246, 349, 327, 309, 295, 362, 340, 322}], 
      LineBox[{367, 345, 371, 284, 359, 337, 319, 305, 277, 355, 333, 315, 
       301, 290, 247, 350, 328, 310, 296, 285, 278, 248, 249, 250, 251, 252, 
       253, 254, 255, 256, 257, 258, 259, 351, 329, 311, 297, 286, 279, 356, 
       334, 316, 302, 291, 260, 352, 330, 312, 298, 363, 341, 323, 287, 360, 
       338, 320, 366, 344, 306, 364, 342}], 
      LineBox[{370, 324, 368, 346, 280, 357, 335, 317, 303, 292, 261, 353, 
       331, 313, 299, 288, 281, 262, 263, 264, 265, 266, 267, 268, 269, 270, 
       271, 272, 273, 274, 354, 332, 314, 300, 289, 282, 358, 336, 318, 304, 
       293, 361, 339, 321, 307, 365, 343, 325, 369, 347, 372, 275}]}, 
     {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{377, 379, 376}], 
      LineBox[{378, 380, 375}]}}, {{}, {}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(i\\)]\\)(t)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  Epilog->{{
     GrayLevel[0], 
     InsetBox[
      FormBox[
       StyleBox[
       "\"\\!\\(\\*SuperscriptBox[\\(\[Chi]\\), \
\\(*\\)]\\)\[TildeTilde].161\"", FontSize -> 12, StripOnInput -> False], 
       TraditionalForm], {-0.4, 0.06}, {0, 0}]}},
  LabelStyle->Directive[FontSize -> 16],
  Method->{"AxesInFront" -> True},
  PlotLabel->FormBox[
    StyleBox[
    "\"(iii)  \\!\\(\\*SubscriptBox[\\n \
StyleBox[\\\"t\\\",\\nFontSlant->\\\"Italic\\\"], \
\\\"i\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"\[Tilde]\\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\\!\\(\\*\\nStyleBox[\\\"N\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\
\\nStyleBox[\\\"(\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\
\"1.5\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"3\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\"", FontSize -> 16, StripOnInput -> False], TraditionalForm],
  PlotRange->{{-4, 1.7}, {0, 0.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic},
  Ticks->{{{-4, 
      FormBox[
       RowBox[{"-", "4"}], TraditionalForm]}, {-1.65, 
      FormBox[
      "\"\\!\\(\\*SuperscriptBox[\\(t\\), \\(*\\)]\\)\[TildeTilde]-1.65\"", 
       TraditionalForm]}, {0, 
      FormBox["0", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, {{0, 
      FormBox["0", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{
  3.483917432517409*^9, {3.483919281839409*^9, 3.483919318429409*^9}, {
   3.483924103292409*^9, 3.4839241133214087`*^9}, {3.4839243374634085`*^9, 
   3.4839243620294085`*^9}, 3.499537221240954*^9, 3.499542016045474*^9, 
   3.4995420667119846`*^9, {3.499542143092984*^9, 3.4995421579239845`*^9}, 
   3.499542264403984*^9}]
}, Open  ]],

Cell["Putting the above together yield Figure 3 of the main text:", "Text",
 CellChangeTimes->{{3.51191178027483*^9, 3.5119118014018297`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"var", "=", 
  RowBox[{"GraphicsGrid", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", " ", 
       RowBox[{"i", ",", "ii"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"iii", ",", "iv"}], "}"}]}], "}"}], ",", 
    RowBox[{"Spacings", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"10", ",", "75"}], "}"}]}]}], "  ", "]"}]}]], "Input",
 CellChangeTimes->{{3.4839187615864086`*^9, 3.4839187856174088`*^9}, {
  3.483924676297409*^9, 3.483924684097409*^9}, {3.49953776825265*^9, 
  3.4995377703558598`*^9}, {3.4995379838222046`*^9, 3.4995380331671386`*^9}, {
  3.4995381227720985`*^9, 3.4995381440282235`*^9}, {3.4995382158564053`*^9, 
  3.4995382726740866`*^9}, {3.499538327349554*^9, 3.4995383343802567`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{InsetBox[
      GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJzNl2k41Vv8t7eEDkITUUnJHBqV0FJOJIVQGhAVmpCpQZKIJEOpE5lSiCip
vTuZ2t/fNqcop2J3omgildkeDc/qec7iunpe/N/+vXHd15rX+uz1W/eCvT52
7pNoNFq+CI326//kqft6x8ZkqdiPTyMDZYrQjQzvzy1KstTc+lv/+D4vQn6v
4yr8F8pQdPZfkWXXitHn1Vrs0DVTKZV2k0unbUqQxsAchpKjNJWuzrk5h1aK
bm1RPeXtKkXdV1vb0F1cikrZWcdXB0lSji6fGyzdypD0ZKM9ZaF/UEHvOX/b
yD5BehFaMvUXp1BznUR6Jz18gnoMEvrtcySoy61rH7atY6LOKNnyq/fFKf37
Z0+nvWaiM1ISNVa1YtRfrMtDDg6AOj9tvxL/ZTJ16sHcPMdaQFFOpZtie0Sp
eX/v3/hwHoVqxJJXiUiKUrNOT/ssZ02htTaxsvrTJlHWBv8eDwqmUGQ3u+Db
XBHK+p72AmYmhbyY6eFKhjSq46fbt4RyCsk790dKnhsFCe03bTGtFLqUnuL7
/O9hCLTmMGN6KXRCxXvZpAoBvM16FGs9SqHJ1n1nt7J54B9hf7NpMgvVtxww
jpXhQprat0V3MYvd/aPeWHkIUpxWP8obodCplvRatvUA6DvvKmLi/q4WfbaL
i+qDkudsZfX3FFqVl+Phs6oHVM+mrvWqoFBFtvdI8o3vIOhZxfbPotDihVGm
BSUd4JtsIPDH63k3NOnmYMcn2H1gnUcLXq94jEfzDMc2GHOZ5NGmTKG55oYB
K/vZUGi1MMywDpAq/9iXweJG+CTj6iqP99PnUffClZurQE3RWkOxmYmW9H4p
DKZyIGHqsXJqAxM1ejz4ov60EB1P0Iq78ugJOvAhwzXnZw2qOZ/dnyj3BD2h
7RPmr3qF7tC4tiI+ZWj1p4dSyg7/ojEr51aVulI00l7g5irWjtTdKiMpuVLU
Hp/SwU7/jGqq446YuZSgzrKVrIMRnajilJ/mjcRilJfgfbpm5w8kMS+fM+Nl
EerNZu7b/KMHmby5dTFhehHSnfu+YfBLH8ppXh2rvv4xWnSuk9bMGEBapvoa
J07/jY6brs+6ETSEDi/1crQqfYScyvx8Bz24SOT2mT0VHQwk2lzwymkZH6Vy
RhJ0FjKQ0Rb+jOXLhWgB93SUtDkd/dN04JB3rCwVUuy4sdGrCAU1GSlOyqdR
oV1Koa10CvF+KNTMPzUGt5uLTL+9pNCrEfPgw2kjYLRN27S+g0LnPky26ygT
glK370o7Hs7fY/1/79TzodI0yv/oJBY6MEt3j88AF/6VTvwYJsZCB/8snuwu
z4EX/oLtMrjc9M/XddEGg1Byfpk6n0uhqDpWLP1wP5T/KFbX7aQQ23yuqGpC
L0gqzRy+2UihEQ2pZRGHf0L5awXZOwwKzZ/+eqBmmQBpvAsoE2HQ0fc+d93H
1bJUX/7VBMO1RSh0r+TnoU94PWu3NwjyKfSNoe2ZxxkD7wf+moNPKRRwL1Wk
VG4UlIteT2r9SCFJ9LL9reEwWA5zTuYO4rx9txbfvlEAhaUJX6/RWOjvpfFH
29x5sO75ngXOeD0pcpdVTiZwoNKyZco1URZayOt+ti9vEKazvywSFVIozH6J
jnlrPxQMeFdm/aDQ32do+Tum9oHZ641uSmwKKR3cuTloaze8CGNHGZZR6HIA
a1/CQz7SvfY8etp3OpJQE9P4a2wURItV7vg2U2iZdR9njvYIHP5ZbuaM+xs9
Y1g+iITQmzMv5wIe72aYXMGIHR82WTnLvcPzUeLXbRkN5UL18cCPFni+q060
d9omD8H0aT90Z+H1uFwqfvqgfADsDVW6Y/B649bZ96oI+iBBsl9rxycK3bv/
NXzkoQAl1U9XHAumoxNnPsft/iRLVaVJ9zqpF6HwXN+nPjQRKkH1SUFHDoV8
pZPfrVKiUWYX2idvrabQhgiLyr2bRqFg+ttO0zYK1Xc/0rI/MQxyTQeac/sp
pB3pMvduhABudU65HDpGoVZkyp99gwdWyc94ani+DE6wXvhLDpRK6Vvp4/tl
pl3wZtvPg/DhXKfJvmG8/sSOk7LyA0Ddkj7xpJtCaqn9IQOb+iDS/VaL7jsK
5V4IfRtQ2Q3KcVMmfwAK1akVpRz346OhTvnjaeIMRLsgc3yXyRicdteYYfSa
QpPUU4sr9o0AuCHrBV0UYunPl/QOEcLx5c+NhvkU6p2rUml/iQ/zb3+5uRzv
7zqJ4CaDEi6EqV8P8sXztXWp5+xiD4H6xVk980VYyKbLfFP68AA89CnfYsOh
kFSkJOpa1g8j7rY2DV8o9NW1tfSjnwBxXO5fC0miI4v4ruuuQiFYVp9JvYjr
x2xFvWOSAuhtpF24jPuLV33fkbOYB3VDi5SC8Xhh2tnTfRw4EPyk17UN/57s
OmlJObP44GZWWuqB92uwS7GqyoILUfatSuK4vnLC0L/mTkPg/u7R7G58nweM
9ljNHhAgyzM2GeFudLS2OhPu9clS8q8c4w8pFaFzVmpld2VEqA6FDMabbAr5
uKfq39GiUQ3dQofASgrp9aVmG3iOwvyjbe3f8H1eUJ1bH584DLSAP3em91Fo
q72HhmOWALwlmJO/4/F6q5NMHpXygG/31k4Ez4f65rcyqocDwlTLDb54vtJj
5THmIkMQlrxQRhJ/P4zXmC0IWDYASmLqEqweCjnlfe+kDvbBusMN7vdacH+K
M1X6R7qh4PIuyTssCnmE0FcdsuMjQxvpDftnMtDwmhnzTZzGIGJq8KW//qFQ
1+W+5MTQEdj2PddSgO+XWxLTC/LShFAVEvxMG5+vQpfGi9ECPhxVPhX2Bu+n
Q9xrpVdNXKhty1xxGs/XaWvFyB7uEBREhBQk4/PYmBgbfVVxEGTMHK008P21
SdPjq7VNP8hG7c+m4fsxrJjt+MZOgBw6nEvQbTrS9Gw1SVMaBo9QdkraEIUY
yhbCPC0BNCueLlDA/d3KM1j8pyUPPH9WZ/rg8eLmpSgG+HPgk9x+1lqct6BH
UzLtVvBBzSvNZRHeLwk/vz/27ufCXHbUZG1cXzvie7vVqSG4c/6kbgT+Pck5
fu+QfCVAee22TaY+dFRX1MEIDuPBpc2iV/7E9XNFz2uEPOCAncIPg6+4/1qb
2cW5vnxITHdojMasF6qakJzGhTzncMYeXD84NSJTSo4H09KOnPt1n+vM4ccM
c3iwLMZd4xaeT9s+VqiWDhfMllxXa8HMzh68rzZDiO4PxoTV2NPRzYOi7Cae
LLWnwnvP0ZlFSGzemZXPZolQX+FnWh3+3ndfTnvrtpRGqSWHcs7h98DCHItr
GYGjwGiMUDHG+bqx7NZ8vZxhEKrH+sjjfH027Lp7ly4A5/KI22k4X0GSVXtE
63iQqRNZ+gOPb/7pZ5HkGAeqr3glxWOO2vb1Lkt2CBQXtqrvxvlykuoLuG06
AP2xsSmmv947SzvTNE72QXZXQOoh/B6a+dG5olCpB6bUvnt/Eb+XGNoPIvat
5yPV6soWizkMJLgyy7/g8BiUZM5dT+Hv03uL1Isi8SOgG+kXsR/n64q/FM3y
nhAG0ua5A/4+5r3Md3Bg8qFn6Xd2Js7X+0aayYIvXFDuVakPxfv5cdPasx/F
OcBwzXR/g/NQ+bMwT1ZzECKjtUcu4Xwd5M9Yc9a5H3SbSjIScb5eujdlN6wX
IPrA9gyVe3Sk+Kop3kh7GCIahd2qOF8bxZ6F0gwFUDxbR5ON7/vF3XutExx5
MHBoxiJPPN5MBfk0ThgHRFLMNx7G5y2TGqOZa4bP3zj1Lxrer0uP0nUK/bgQ
oclnGOL6hSEe7g3RQ8A7uFGuAefLRfTbyskVAvRD8p+m+cfoyGF4RnPdJZwv
jquEAa6vNyKST2NxIEtpS5YU7s/JIHXtaCgf+H6ZCq54vKIKG0ZnPheCU2R2
HsT1xdseVO1Uxuen9Vzu134wRU5PtxPnw/WkCpsI3P5Qzs9bxw258KMwv70P
s7pd/4iyqBD1vC3wyt5FRx7hR+Z43uPBaIiF50zcvm5TLu9cLRfmvVZRPIF5
tqekJGcNDz7Knsg4hjlEz7xjxnYuMBiajbMxmwaWJugF8GBRWUHKVsxZxlyf
zfFceDnKj3HA3L9j59knIjxozhULDMcczee4LVYVos2KO9q+baYjO6Pl+w8P
43xrqEzxn1aEqsUW++1SFKEWD1jG/InzraeZrrd2JY1iSbHUpHG+505Ki3sT
PAohNoGFn3HekjrTN44UDMPokNLLRpxHPd27Po6lAqjV89l6DOcbLX53VLuR
B0lHat+34/VLuuYLnonj+QtDFdIxV9N4xmPyQ3BTfMf8cJzvHwM16WAxAB9c
vrHP4P7EAz14/4b2wf5ny67W4vHUqyfNktPqAT+O45NhnO8WWuFi1zV85LhC
i1GszEAnKfl5nv5j4KNVw3XA+Wbf6gs3uDYCz+d1T1fE+Y7RmqI1+5EQwgx9
xC/gfA9WeCmMVfEhcAHdORrnO3NA3nrjD7z/ncZTft0Xt2uE5ZkyHKir+EOh
H+d70vXyNVv0B2G05On6KpxvXnvXvuT9/ZBV6pnwEeebZ/Rm87M1AqSTW6Rx
uZCOpl94VSS5bBjWj5zy+orfKwm8GLN8UwEcPVnNfIzz3Sd7ck+xCw8+HFO0
34vHY1959f5xNAfsO3a3h+K87Yi3/m5nxYfjNeGS3Zi3NTOMm09yQV1WftgU
1w8QqubEJwzBdmlWcx/Od+TbjhZaqQAJLzT6xJ+ko9nK2p19iTzQ9QxYoofr
952EH6xaDnjnxxXOw/t/W8tF5E4UH3Q2bZi5Cfcf/MW9SpbOBa+5K5K9fuVR
pLYpVI0HljvfbgjBPGVo7ZvhqXxIzbEyOYbb6z8VZaSbciGVk6E3jHmLZl/W
HKEAGSH1kJkudKSTHbY4jsEDDSevqVK4ffwR5h93X3ChXNysOQhza5TKnHnr
ecDuOmPnj3m9rRNvjTMX3p80SFmAWSyxMXPbKR6ozimysPr1HneZetb/GheM
Nyhv3YX5cZBPwucpPNgur6T7K98PXgxN0ZojRHoSa3N32OL7pbBLR9DKhRZD
s6VncLnn880mh215sHv7lquHMQ/cNMxkZXHB6Ifm4/2Y1zFTGMsUeGC+cSTo
7K/ft1ZChzOLCxnHTQQBmB02DPIalvNAZ9H92JOYdVeZHb0m4MIzG32nX+Pv
VeWV6OsI0aKWKTqnLOmI+Dztvz/i84SJzxMmPk+Y+Dxh4vOEic8TJj5PmPg8
YeLzhInPEyY+P17+n88TJj5PmPg8YeLzhInPEyY+T5j4PGHi84SJzxMmPk+Y
+Dxh4vOEic8TJj5P+H+rz5P5EZ8nTHyeMPF5wsTnCROfHz/P/3yeMPF5wsTn
CROfJ0x8njDxecLE5wkTnydMfJ4w8XnCxKcJ/08+fWqppo2DcSkIIhZOzYln
os8l/BW3MsMn9u9p2cF5WtQ4E/8mTPybMPFfwsR/Cf/uv/Ke67L1A1ngEHCv
6z6diY6fzVG92pwAMMdrzbGFTPQy+K+Wwtii8fGILxMm/kpYMHX17p/yvZBo
oOX9pA7739V6e8s4OrgkrV4gcpiJ9NJtF6eYZI63J75LmPguYeKbhIlvEv7d
N9fLzN7/0LUCJjd2ZJ+oYqJjbCc31WsZsPHKgzadFXg9vqrth/MZ4+MRPyVM
fJHwQW1t/SiHXpBhDy41acDv409BjdbujyFxLDDe8zQTdUjHF4erJ423J35J
2GKfTPOTF73j/Ulu3DY9UsoPFozaz8qQY477ICknPkiY+Bhh4mOEf/cxtlt4
hf/2Skh+/7V/SwMT2e9f8IetThaU3w7yFhgzke2RQ/ssSx6Oj0f8jTDxKcIZ
q1Wvb/PvBZauBbf/BYWso7dearQtBv+9V5fGRDLR4iGxQ9rDl8bbE/8iHOIr
se5i98T6g14Z5wbuOg/Xrzotj1dkjvsSKe+O5c9UXzyxvmXXl/j/FEmGqf3V
C7bp4PrbZnn1Fk70x9RNd2QauY+3J/5DmPjP+P795x+EiX8Q/t0/sqQM/R0a
KyFQ+cVLxj9MtD5P1PnrUDZMuWKc4bKOiS59i11UxHowPh7xFcLEHwiXwXzr
srBe8Dv3Yeuzl9inWst6EsxLwJ96xVa6yETp/4SdE9ZHj7cnvkE4mSfK6RuZ
WP+K71XchnNxwOi0KRFVZo77ASmXnMV5GmM0sT5ZtSElpcQ0EA94E8nSx+fX
Mm2hIzXRn7RIpsOVGmeQMxXVt53KHH/vk/K9XZIxiz5M1KdK6TvmLgkFn0X5
t2fPwveXxQE191Scl/JEiSXY/x3M2+su958Yb0/e74TJ+50weT8TJu9nwr+/
n6PbZjyrlKmChX2yWzpeM5Fh/WDk0ne34cid3QPxZvj7lDs/wmfDxPmQ9zZh
8v4lvEk0PdcnuhcKPCRbDfB9XXje74Y/qwRoXK91brFMxDJntjSsPj/R/r/3
MmFN4zDbbLGJ+UYZVb0Ykb4M78s3GZmoMMfft6Q8aUfAIlOzifqjh5q9C91u
wPflRkOcpUxUMv9SsGTtxH5nuCZF7Cx3h27aeql9Mszx9yop79W98LX560T9
NIsTNMuqcOiak6froMBE+69P79mYP1GerLfj1Opa3/H25P1JOD3pSk1m0f+X
j4n7IzrZuel6LygcGiyQxudN3o+03/4q1VyPiUoyUdZRE8nmzF4wHtovjMf1
f8/L7/3/nsff55/Ea3+4gv/G6P+VF4z3/+T/9lc43v/v/RH+P2AxB/Q=
        "], {{{}, {}, {}, 
          {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
           GraphicsGroupBox[
            PolygonBox[{{385, 426, 427, 381, 407, 339, 384, 410, 355, 376, 
             402, 317, 358, 379, 405, 330, 346, 367, 393, 288, 322, 335, 351, 
             372, 398, 308, 316, 329, 345, 366, 392, 287, 286, 285, 284, 283, 
             282, 281, 307, 315, 328, 344, 365, 391, 280, 321, 334, 350, 371, 
             397, 306, 416}}]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
          {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV01WUEAQQQNEFBEFKumNBursbQRQEli6BpWuX7u6QkpKS7u6W7u7u7m44
cPfjnvc1c+ZnAoNDg0LCBQQEfCOsB5hCR6pTnFyEJwI/EJFI/EhkovATUYlG
dGIQk5+JxUGm0okalCA3sTnENDpTk5Lk4SwL6EcjKhCHw0ynC7UoRV7OsZD+
NOZP4nKE/+hKbUpzjZUMpzX5OM8iBtCEisTjKDPoRh1+5TqrGEEb8nOBxQyk
KQ/YzHgqcYu1jKItj9nGJOJzjJl05xk7qMs9NvIPr9hDGW6wmvf8zQt28ZkQ
HrGVj0zkDfv4QgEusoR3DOI5O/lEMx6yhQ9M4DV7qcxt1jGal+ymHU/4n39J
wHFm0YN63GcT4yjLTdYwklAKcomlDKY5QdxhPWNoT0JOMJue/MVvFOIyyxhC
C6qQiJPMoRf1KUdhrrCcobSkKok5xVx604Dfw+Y9SRFNwmnm0YeG/EFRkpKM
5KQgJYGkInXYzXb8omlISzrSk4GMZCIzWchKNrKTgzPMpy/BlKcYV1nBMFpR
jbtsYCwdeMp2JvOW/XwlJ98B5C+BfQ==
            "]]}, 
          {Hue[0.9060679774997897, 0.6, 0.6], 
           LineBox[{254, 388, 362, 341, 325, 312, 304, 255, 256, 257, 258, 
            259, 260, 261, 262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 
            272, 273, 274, 275, 276, 277, 278, 389, 363, 342, 326, 313, 305, 
            396, 370, 349, 333, 320, 279, 390, 364, 343, 327, 404, 378, 357, 
            314, 401, 375, 354, 409, 383, 338, 406, 380, 414, 359, 411}], 
           LineBox[{385, 416, 306, 397, 371, 350, 334, 321, 280, 391, 365, 
            344, 328, 315, 307, 281, 282, 283, 284, 285, 286, 287, 392, 366, 
            345, 329, 316, 308, 398, 372, 351, 335, 322, 288, 393, 367, 346, 
            330, 405, 379, 358, 317, 402, 376, 355, 410, 384, 339, 407, 381}],
            LineBox[{415, 360, 412, 386, 309, 399, 373, 352, 336, 323, 289, 
            394, 368, 347, 331, 318, 310, 290, 291, 292, 293, 294, 295, 296, 
            297, 298, 299, 300, 301, 302, 395, 369, 348, 332, 319, 311, 400, 
            374, 353, 337, 324, 403, 377, 356, 340, 408, 382, 361, 413, 387, 
            417, 303}]}, 
          {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{422, 424, 421}], 
           LineBox[{423, 425, 420}]}}, {{}, {}, {}, {}}}],
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->True,
       AxesLabel->{
         FormBox["t", TraditionalForm], 
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(i\\)]\\)(t)\"", 
          TraditionalForm]},
       AxesOrigin->{0, 0},
       Epilog->{{
          GrayLevel[0], 
          InsetBox[
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SuperscriptBox[\\(\[Chi]\\), \
\\(*\\)]\\)\[TildeTilde].130\"", FontSize -> 12, StripOnInput -> False], 
            TraditionalForm], {-0.4, 0.06}, {0, 0}]}},
       LabelStyle->Directive[FontSize -> 16],
       Method->{"AxesInFront" -> True},
       PlotLabel->FormBox[
         StyleBox[
         "\"(i)  \\!\\(\\*SubscriptBox[\\n \
StyleBox[\\\"t\\\",\\nFontSlant->\\\"Italic\\\"], \
\\\"i\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"\[Tilde]\\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\\!\\(\\*\\nStyleBox[\\\"N\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\
\\nStyleBox[\\\"(\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\
\"-\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"1.5\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"3\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSlant->\\\"Italic\\\"]\\)\"", FontSize -> 
          16, StripOnInput -> False], TraditionalForm],
       PlotRange->{{-4, 1.7}, {0, 0.5}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], Automatic},
       Ticks->{{{-4, 
           FormBox[
            RowBox[{"-", "4"}], TraditionalForm]}, {-1.04, 
           FormBox[
           "\"\\!\\(\\*SuperscriptBox[\\(t\\), \
\\(*\\)]\\)\[TildeTilde]-1.04\"", TraditionalForm]}, {0, 
           FormBox["0", TraditionalForm]}, {1, 
           FormBox["1", TraditionalForm]}}, {{0, 
           FormBox["0", TraditionalForm]}}}], {185, -148.74611797498108`}, 
      ImageScaled[{0.5, 0.5}], {360, 222.49223594996215`}], InsetBox[
      GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJzFmHc41eH/8G1ll8qMUGSEKEV4S0VUFNpW2RRZhYgSSbISsjMiMkLJyP0x
CxFOcY5UFNl7nGP/zu95vh+u63tdz9+PP47rdd37/tzr/RK57mRgRUdDQ8NG
/fnf/wzsFpNra5xYo9PW3MnpCEhOcezr5ufElFCbFW1sDLh8C61xFeXAAgWf
98jqJkPfYUminwo71tpXOq3Fmw4SMwLF/BfZMMjjMa4yeQ2pZ8TuOpqzYk/S
elW8+AugnJh+57AXC1aeFKXh3V0EbAxHzCr8NmO1rEmxOc8+gGyAJEfzk03Y
P4lJJpHujzChFDltmMmMHQtpV414UwWDQZzVUflMmFpqmxXfWC34sjJ/OvWZ
ERMpVL/wcd9nGPx74VlYPwPmYCbgW+XfBEHG5bpPJ+ixY7fJPM8Of4VPjHGH
aFnosQ5B2dyTF9pAXf8pp9wWOmxZ0//ae3ECBI4T84YEabFNavWJhNZvcLMy
yZ9fmQZjjPM+IK3UATtMpgNZHq6i9yocfWJ+nRCeFO/85f0yUoxwFctwIYLH
LkcFuppFFPh933KSBAkY9KbunyNS0IL2hfOSviRo7rZVfcpBRgIJlIhRbxIw
vtncrCo0h3rVOFz5hElwtzvpM1FvBt3jaTKTdSdC1Ic+g9CgKTTZq1n26lEn
HMrOtHY6NIHOXje5eVmjA2oyHFfikkdQkCfHr3biN5ARDdLIKxtAbh01AS7U
8fyYo3s5O/AXLXvsyu03aQOmEOtO7os9KJVh9aXMma8gqKXsdnCaiJxf3FFx
imwCsYXb/bOlbejYjvIiFpnP4PRuXPTg6TrEJdR7XWe5FuQn+wu8sUy0VmXN
u4RVQZv1237xhgIoadgd57r8EWx/p5hnjn2CzHGfQqfED/CRxmIp5xABkiLv
qDxWLIbDfwtZhYy64O2c59UhpwJY6c27Zs7YC8G1vKakkdfQGxY/QEzqg/K6
hKWSe+kwWHGwyi5gEPzLbl0cN0yG7EhHn0+XR8FoTv2AfEkMTGZUWpwenQAb
s1sFqRyRsE/wV8ts/xTcuz6qqe0bDLsfDtJ0Fs/AM1uZ+tDn/nBHQzM92WsO
poIaPjjUeINxhYvzrDUZ8jIi2sp13YC+M49grLAA2PS84c2xG3DkzAK3ouIS
mBBMtn95ZAHtHbb2jk85scjElWqbhCgIKls1zEriwPj8r6x4H46HHKbuM155
7Nj3eJMk0+qXwBQtWt/8mQ1rGgzKzU14BZYpyTG1P1ixs7fZpxxT3wBllOeT
8N019DTF8o3X3w4grGh5OySuoId7W2rHaInw8DeDwUDFEjqxyOB6lkgE9RK5
rtfNCyjtvLLtH1MS2G7fZ+Y0Q0ZyYReM1IJIYHe8lMFqxzzKNvVo/3iZBBrH
vzUGK80iUf6I8+UEIgQ1Vj0tcphGWfdS+kqYiEDUEqQXi5xEwhVVkoajHfDC
MMjGSe4XcN4MzI5Xz4WJwxnpgu1/4LAYdv/P9kywfGVrJBL5D9waltPNZl5C
g4RBcqzTMBB218cb68XDmYToyc1i4/CBTGr8WxoFkSWmfuzjk4A8h//lr4TC
3rN/B6yap+Fo7cKJ5dZA0Lv+3KA8Zha8Lbfkj7X4gf29LpbGW/NwvFfHYkTR
AwoawlOzTlNA+XqE1su9ziC89dvMJ4VFuPhAf6C51QZGpqz2ldRzYoqfD820
qz2DqFylhOpuDky60EY5/coLCL35btOdQXasX+Hmjl9vUsB9YI9+Ji07doBr
OZ/bMAPqG35mOPGxYYcZdTWezmfDULGUTfb8Ggq6+6TkS2gHuOUm0JZzrSKx
lnd7+Wo6gQVae0nKy4hwU36zUhYRfozoMV04uYg0fPdq8mqR4P3+sFs9VhT0
kFP0PQSSIJ4rYpdn5DzqIookn3IkgShlvMkiexY9qw19371EhAeG8tJaP6fR
pfiETTwaRHjvS5NziX0KhXiwdEmrdoJtfGJp/dFuePi5+ecRxny4zS7lXznS
C/1BhVLfPbJAVIBOyCe2H2Q1cgmP5dPg0vQx+fteQ9Ca2BjdrpkI3jF0Jbbq
Y6BjMRn5c180nGAUJvG5TMKbrIyzUhXhIPXe/Gru5WlgiuE13PwiCJRnKiV1
xGfBX1RPzU38AdwyC+0snpuDFMfKtmArL2CqoQ1uIZFB6q4me1W2C0S4VVlE
Fi7AZrGb8ima9sC8h1Hi+doqylA792hVsRMU9KbmBaRW0JZpb3kfVSKs+ipX
z8ISkgunKWunI8HLB1x5KwYLSJ5g5zbqTAL+hcYzq35k5BD/dHVXAAkOefQO
no2bQ/lD3C/OAQlMw0sb3lbPoODhfyHNr4gg9FJKKod5AphFEo/fuPIMeuyS
JGjtpyDV0SjWMCcExIet3ISOzkDdmuNQ2p4AuN7mcHff5jnQV/jm4SPgCxaJ
4uq/R+bhdP/UM6L0bbjSKlz+AFGAMqa1hSvACXLz//mvFC6Cx9eBMsIzK/Dw
7Qu9+pcTS/PSqKA8jwT+TAPs6xIH1hTEHLTiHgs0IqLW7owc2LZfnA91JVJA
JjyTe5sQOyYSb19CKkqH27+WZU4cZsPepv6gaZLIBme2uB+H+Gmw2Z/8I/PX
O+BEgHbtdd1VFLbHSW1Xaic0j7+TNPRYRkKxpeL8oUSQCjQVfBOwiM4pz5wO
P0SCn6CxwJtMQU11djcu+pOgeN5b1r91HmX5GTtfuU2CbQbep8/2zSKLsnIu
Pg4SrMYMeHLumEHZFfBy31Ui7EmYvjejO4X6Qur2elzvhLOQdX1a9wekul6+
SD+ZD2V3briEefTC/drH1vryr+HB9xa6HIF+mAiX2uLxPQ1SOis85tYG4fnI
Sbpy7STgfn6Yn/fLKIy2EU61TESDkIwv464Dk3Cv5pTT2+sRIGMnvL1NeBoO
Cmyh1w16DHnlhtvDx2ZAYJKhbbHrAczqD6pJfZgDGoY3sfWhd+EtlPlcSyGD
as/7kb7brtC450P8HZcFYDz/rSE13AFoHnPcuaK2ht5/mpM/wdYJdOIJpTUW
K4ilQsAQEyZClZwwi+O9JVT4aHO41jgRJgV31RqGLyDWMp0ru+xIcJTZu0Op
jIwS3d2MDR6R4Kxp8/wV4hw6wvDMVfMMCfSHtXSTlmfQD6cLpt0fqfszyfzp
lefjQL8lnzuDOQpKw1cNmWWmwHv3Ad/Yr09BInG3rCbzDHTvi+9qJQcA8QWN
jVvrLJj2HExIkvaDf0/90o3y5mHTqdGALqk7wHiGmLc9kALfxlM15V1uwT/z
n+V/XBZB1LQ7bC7HGrTDhl+YLy2h3XsOqM9iRAg5B5NrLIso9RKb+QFDEoSJ
/RrIlKGgUOuV6l5q/x9IZWx1MppHYdE9AVWWJDAYpInN3L6AkqKIiic8STA7
zFdXp01Ge06j0Nf3SSAUOdelZTyHDP3disbkSOC2OnGKd2YRLAL448ceWYJ6
fRrKneLE7hBrt3Ufi4TuNHODC6ycWMLkjIEMUyyUehGjZrk5MJET4tFPmpIh
yHLQXVeGHUvdMqaQYJUOLbYhk/nabNjWfaXjctWvwckqQe61JA0W1Em8mn+6
A2SnEjKUbFaR5/1Jec2ITsirz2oOi1lGw+4y94L9iHDO0FriYvoiknzXn1FL
7d9kfazau3IKmr2Ws8WO2n9syOVg0MQ8Ctk0Lk2gjo9trTpEi3YOmVcdG8F2
kEBV5ZiIm8IMUmk+TDlrSwTj7JFBzG4K8Y4mP1F074TjEfsOBX3tgp99V0vS
FQug+w37MFm9F3go+qURT19DocLBuaM/++BZxc/PIZLpcFx3ISG/ehCaf91T
HvqSBL+eEZomIkfB3UjA7qtBDDyBfAGx7ZOwf5P4x8WSCHhTvTr1h24aPuin
0rXQBcOQsNATxbYZqNQYCfM75A9KJ7dPWb6Yg67io4avJLyB6V40OdufDBVY
+Z6O365gfa/okL3BAuw5Fn5CXO0GLKtwC6sZryEm5ws5tJQOGI6YiovxW0E6
7vI+C1xESGXempeduIS+WKf6e/wlAs+wxNfVvAXkeCX+vhx1PRiFfuMndJAR
eZtv1iR1vRifq1kxI8+hiYzl+TzqejoZ8zQ4im8W9YROsEx/pt5PiUvqCsbj
MHfl4GZR8ygQT5e1Z2GfgtxHVpNWVqGQNU/PajQ8DV2W6d3+FoHAvdrYzVM8
C/H/mruee/vB3sDci2Fh87CQYvBPIO8OXHlSvNfMjgK/fRylQ77cggelxIvf
DRYh/QUTX42qDey1+amWyL+Mzv0cEa4qJkKxkPZStuQimuA1mSKcJkFqtpLM
cR0KMt1x5LEytf+hO+P53FznkbHprj/vqPvZ692mNIMDC6guVPL8J3cSMLu4
bL5uSUZ+zKW0odTzUSpgpPfU3Tl0+5Xwr2bq+cl1cWSAhbAIBuc3V5izWUHj
h4Fi7wcURDLkMJx9SIIs+kcS997OoxMPLz1+4EKCz/q8pVnOC0i7aK28+CYJ
ZP3EIuMSyaiTYc/t69T73jshII2Vi4Js3QRMDlPfY9ICCyHL8xQk3ME6bEV9
7/dYVPlJSpPR7oLaEldqPEDMmM3fw70E54skIx2YLOGlHT2xg8KJsV+yu6kh
EAnqqTbxfNyc2HcRzst/WmIgOlNR5oAAB6ZWuLM7MzgZ3rdsyrRSZMcSW5ZS
v6mnw+I+IwMrfTZML1xbnhD2GsYjEknX9tNgb5fGvrgd7QDRTO3oFPdVZHfx
46byoE5IVkgVls1cRr11/j6pnkToUx5+86ZoEcmE/GP9KE2dT5Y6M/pGCtq9
6aapoR8JtP6OfWBZo54vRU1NDndJEHT+35sqzjn0fm+6EJmfup5Yp9xeacyg
c9eMnT87UuOh/YOJEp5TiL0y7eDte52grnJLhBDRBTcM+78UniuAG9q/9siI
9gJZMLApquI16F6zdWSv7INjpK0ua4bpEO3Pk8+WPgjmT+az5LmS4Tj3y/Sr
t0eBx6IylfAwBjR1Pr1KZ5yEJy84UkT/RsANJ8ceh9kpaFy6GNukEQxMBvRa
jDUzUGyWoHPB2h8u1Obo0gXPwZ+iwhfS7t6wP/Fhsb47GbhTFac2b3eDYqm3
ARaaC9Cv6q/WGnUDFp9td81zWENjX2uf1o91wC/thCe0YSuo6mPEAe/NRHjm
ykqjk7uEkvkFiyd+EiG7NcfIqHIBKcu6e0ZdI8GvNho1kX4yIjx6qyBCXQ9/
dNXv/2GaR0ZsXELVF0hQO1aQzbl3Fu2I4Txm3kKEQcEGniQYB4lSEOgKiYLu
XK25JyuTkCzG0q3yNhRs01wXun9Mw4jmUWbmuECQly+IGcqYhdir3FbPM/xA
h+74Wxm/eRiJ91R+O3kHArJT++mvUqjnUpCI2eItaLXqyGjRXISrJlMks0Ab
4CN0hB2RWkZarhPBgXlEOMnY5EejvIh02vV87uuQQGb8ul7kRQoaXj3fXk9d
39t4diTOP5hHKve6YthukIAjIWRv1rEF5KDm86DflQTh75KkC1zISLVmJP8a
df8U3LO2agmeQ5mRQ3rxR6jvN/qhgww1i6D0Y+u5Un0rMFrm7mwMpyAdeh1O
eWp+2RXaHJqqeST/9aa5lxt1PSklqK/6LaCXuRo7bzuQ4EONfvFgDhk9+s2T
0EftD1PP27rLQhT0RUX7OA91fitpfbYaMC0gNy8NpV4vEthnjqXeUSYj7Pr9
lljq+hU3mF4Rol+CxeEyk69almDtf0PAJpeClP7cuWH/gASNulmUh5/JSCpR
8X0O9XzhtWFhmVehoENalaQYKt+T1RrgvkBG1a2TcxnU/Bru5ZGybhSkf+Tv
wXTqezVdlex0OoyMuGYJI01Unr50+f5HWgoaKZZiP0HtX/DC/DUZsSWIciu3
xeotwOCIoqXDMifmYzq0g5M5EhxFRmBpByem76n/ybIoBhjUe8kEIQ6MvT2K
3dQ+GZrpX8CMEjs26bUSESidDuFch+k1DNmwWwtao9jt1yC7N0lW/SAN1vtc
sKftSAcI0iWGfvdeRdalpW7ODzshdjDp5EreMlK/7OolfpsIsvveOF0sX0Tm
zJztBZIkAJkft6TaKIj9kHMfRj2fWMxzFpuYyMj7kYmUHPX8qqehqK7tmEMv
SZfrWHaSYHTmUxLSnkENq9/jVpyJwORuTenym0K/ecUqufw7oTw0Ipri0gWq
j//SN5gXQHFU/bF67l5ocGL5I/vtNURTaKVd8/rgw+2SeQO7dIAU8cPlUYNw
dGUtn0YhGcjtzBFbbEeh1aWcNJ8YAyoJr4iNSxOQ5q8b10mJgC8nXl2UH5sC
8ZeFSQtmwbB9xF1svHwGLBtk9/zz8Qdrujvksw/mIEha/tCBBG+of7O0VdSR
DK2C0pwEOTfopimQMVdZgOJdPEdpqm6AJ7Zjp43rGmpX7StKHewAYuqUv1L0
ChKkv7urhJH6/pLcJMn7bgmxBX7qEf1BhNmamzxrdQvo87aAc+rmJEib2aF3
cpSMFrfHt+6nfu9Xn5aq0zjmUTC9yIDmJRLQvahWOSM3i540EPZztREhrluO
wWj/OBzQLPhglBYFJYXtZV/mJiHNM/vMtc5Q+OyZc+vlt2mI4bxxyfVdIECD
qHt70iwcnbxhq1TmB1c0OE3veszDrkbPJOWtHsBfxne8w5ACXjrz4LLFGShH
vp9uUlkE/u1SMd45NrD1MeEDi8IyqnQKY7qWQ4RISsixHI1FxFrC8uGrNgmm
OD3NSk0pSPdze2sAdX8RnxF+lQTPo3y+oi1y1PvuUpjeiMGpBfRH6MmfEep9
eL6zWLXTk4xs4k7/raHuX7clscywyDmkYuR12VONRA2BB7ppyhfBPfDqvjxn
K+AVkhqciqEgC4NEnXrqfTzliUarPs8jofm1azep9/UrSVPa10ELyJd1QFjP
nnqf9lvVcRaR0b4nLJuFqPuvkfZzh98eCirenc21RuVNc+rfl9kX0LHKOKEd
1P0u10BfnKRBRpaycaVi1Pfhmb1T6QJLi/BDcOsWbRtLkM54IBNaTEElT7V1
R6npYTcqN7/5SkZjOoYVrdT6fgbtEtipST0PFC+pO1BZ86wxRcWEjPavWD0S
pPaXMaYt7fxdCrpqVNiqR93fdqbs912jyeg+yeUjH3W+SrycIvs2Uc8zTF3z
KPX7v/06t0lSYAl29jEw+f6zAL6CYenFn2TE8iPNi5WabvPltJrDWQqiqXhY
Rkdtb+alclpVOhnt/V25/RW1vqOV8cUKPBTkJV5vIkXNzyQZOWBSRUafNJSi
71PzG52YpbQoUtDrCIOriMr7Dh27Fb1IRkpsPz8eo+a/LkYpk5NeAn3SgJ9c
pgXgfpfmP3+438UZ97s4434XZ9zv4oz7XZxxv4sz7ndxxv0uzrjfxRn3uzjj
fnc9/T9+F2fc7+KM+12ccb+LM+53ccb9Ls6438UZ97s4434XZ9zv4oz7XZxx
v4sz7ndxxv0uzrjfxRn3uzj///K7ePu438UZ97s4434XZ9zv4oz7XZxxv4sz
7ndxxv0uzrjfxRn3uzjjfhdn3O/ijPtdnHG/izPud9f7L8GqEOAwtj7/FIul
pN25Qyg8WX7nfYZvwBBSd+tcWz/a6UN4MX68He7u36tvpFqO7D41B2tcqIG+
soUDqWn+G/PXUGG3UxJbZ9xn4oz7TJz57S6f9jo3vt7+L4aDLWavhteZt/MV
ca3uHzog4Zvh+74ddtgczZBzr0Je0z4WWhK1cOd+plhUZyS6wLJowcVSBa3e
z7sLnn5Ybw/3dzj3/KvgCQ8YXa9/a02V01DRINqZ8Z0xIpoAjVHNhjqhRehN
2kTTjcfVIJt0ViZeLW29PO7LcMZ9Gc5Zj/1IbrUb4zn7vc1qRXRjfad6x7Bd
1BhAnJl/8gvG20GTg9ey0LwGhajWoFMRtXCbaHxNLDoF+drrTDJYUcfjLNbr
kFO83h7uh3B2ZO5LD6ZsjCfgmSnzI/khFGmsOt7eTADRv15telYlqFmL79SZ
iWoYYAsr9RePXS+P+xicHQ7EKlVLbsw/y8nzWwNZXdBlxSuHRAqwdX+Cp+P+
BOdJvm27plc2xh+slrL/9LWN8dt8DXv1wGcAqXCqLSezEIB4zb/G9UIt+nOJ
ZSWnvhYMLUU2n5VOR5Hx9pw9kVVw9oa9hU5Z4Xp7uC/A+X3MnRFmhY31W7kk
Q/juOITEYgtXVYcIoBd8LrztbCn62359Jl20BmTmGO2llsPXy+PxOc7pCdZ0
W2w3xu9FUM1yv/IIldlUD5C7sfV4Gk/nuUkfl9e3kV/hhbzrGG0cSjPcpGx/
qAoUvjTYu44ModO73bWShL9B5b6ki5VHrNbL4/Exznh8jPO2PyY1Bfwb5+Ur
50cxrn4b89lIeeLKmzCATIc+DIbwEiCdVdnVqK0WHXxSwefaWwua2fQm/+Yy
ELmwMKn/dRWEDz3d/aHq7Xp7eDyIc5dZVWi93sZ8/pDbprzydAj9yLbu/jtP
gL6fFRORWmXovUzwGXvVGkhqf/BwqTl4vTwef+Fc1XrG9vCjjfk5MFJHbnkY
itZ6fGbuzmDr8dJ6+svhte/0G+Pj3DPHzx+TiJxDpnzl9KrgmXEiTwzjMPKO
47SYlvoGbLRpRs8+mSCpAPHKhGRsPf7BywfZ+iYMndxoHysvuiQo74d8rDfr
P6zHYHvsH4bTX4bQWH12yrat38BIq7cxYtpjvTwez+CMxzM4i9fTbeeS3Pg+
xax3dZnDN/p/l53likXOABq+xpvmJ0yA4B7uplqOOhTLlHKle7wWlJtnA/f/
eIXKJY6ZOb6rAvks4QCnExvfB3+/4zx6zLpnj8nG9xluYB4NTxxCyZZOhUUr
BCh45JLsWlWGPKIunjPUqYEqrcrulsOP1svj7+X172V/VOBL9Mb8BB2p+7rC
FoF8TrDsql3F1t+3eLrmkV+Fdtwb41u173QsuJaMHlb1KcZeroLna1PZpmIb
9aWYxwZcrrZC/UmHe+bSsfX3Kp4eTeeq73NpI3+itgeNTp0/cqoVY6tow2C3
QkfJ7x9D6GDhqbddvN8gTvbS3cOfndfL4+9PnDWsP+5kXhpCF3YIGpuJr6+P
9XSvlidD55U32sPfjzhvy9Pu9do2jOqr2OC1zLeNc67YTUEsAft/rb/1fP+9
Hv97PmIpvYUHFr4f+b/pBYC3d/v/1Fe7Xv9/14fz/wCeniHN
        "], {{{}, {}, {}, 
          {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
           GraphicsGroupBox[
            PolygonBox[{{477, 523, 524, 478, 504, 436, 481, 507, 452, 473, 
             499, 414, 455, 476, 502, 427, 443, 464, 490, 385, 419, 432, 448, 
             469, 495, 405, 413, 426, 442, 463, 489, 384, 383, 382, 381, 380, 
             404, 412, 425, 441, 462, 488, 379, 418, 431, 447, 468, 494, 403, 
             482, 508, 456, 511}}]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
          {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV03mYjmUUB+DJjG2swyAmRU2UpYyisaW9ZkTIMGPG0KgkW6hERFGiaC9K
iRIJZSmFFpGlFaXs+9qqUqLEff64v995zrne9/q+53m+2kUDOvY/IyEhoYeP
yDN9bJbTGcyNXEIxqpttka9xN225lERqmG2Vr3MP7WhCEmlm2+QM7uUmmlKc
s8y2yzcYQnsuowQlKUVpkilDWcpRngpUJIVK1PSuHXIm99GBTDL0/5BLeZzb
qMzZ+jvlLIbSkWY01v9TLmMCt5PKOfq75JsM42Zax6axVrxI89gv66PyQybS
iyrU0t8tZ3M/nbgi9p3P1S/RIvbU+i/5EU+QZZ3Mt+o7uFqdxFfqV+KM1OX4
Xl2V2uo98q3Ya3VFhquvl6VYH99dppKjvlIWI5cvYt9kJQqYYt1GlqUrG61z
ZFW60TLOWf4tu8iP4wxlCvk8aZ0ty5DHd/G7ZRV6q6+Rxfk69l9WZmrcLVme
H9TVOFe9V85hBDdYl2aDujNXqRP5Uv0yreKOWR+Tn/AUd3KtXgm+Ub8a953z
rPfJuTwQv4PL4x7q/yOX8zR9qE66/n45j5Hkxj2gBuebHZBvM4q8OGPS4q6T
6I9UM+5e3Ke4E3Fe8fvie5Bknh7voQ51I73zoHyHB+kaZ8YFMTc7JOfzEPmx
F1wYc7PDcgGjKYi7Q72Ym/0oFzKGbnEW1I+52U9yEQ9TGPtGpv5x+SnP0JcG
8Yz+z/JdHqE719FM/4RcwbP0o2E8o/+LfI+x9Ii7SXP9f+VKnqM/F8Uz+r/K
xTzKLXH+tND/T37G8wzg4nhG/zf5PuMoIouW+iflKl7gLhrFM/pH5AeMpyfZ
cYf0/5ermcRAMuIZ/d/lEh7jVtrEndE/JdcwmUGxD3olWaeeRjt1BTapO8tq
FNLY+jQ35pNw
            "]]}, 
          {Hue[0.9060679774997897, 0.6, 0.6], 
           LineBox[{351, 485, 459, 438, 422, 409, 401, 352, 353, 354, 355, 
            356, 357, 358, 359, 360, 361, 362, 363, 364, 365, 366, 367, 368, 
            369, 370, 371, 372, 373, 374, 375, 376, 377, 486, 460, 439, 423, 
            410, 402, 493, 467, 446, 430, 417, 378, 487, 461, 440, 424, 501, 
            475, 454, 411, 498, 472, 451, 506, 480, 513, 435, 503}], 
           LineBox[{477, 511, 456, 508, 482, 403, 494, 468, 447, 431, 418, 
            379, 488, 462, 441, 425, 412, 404, 380, 381, 382, 383, 384, 489, 
            463, 442, 426, 413, 405, 495, 469, 448, 432, 419, 385, 490, 464, 
            443, 427, 502, 476, 455, 414, 499, 473, 452, 507, 481, 436, 504, 
            478}], LineBox[{512, 457, 509, 483, 406, 496, 470, 449, 433, 420, 
            386, 491, 465, 444, 428, 415, 407, 387, 388, 389, 390, 391, 392, 
            393, 394, 395, 396, 397, 398, 399, 492, 466, 445, 429, 416, 408, 
            497, 471, 450, 434, 421, 500, 474, 453, 437, 505, 479, 458, 510, 
            484, 514, 400}]}, 
          {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{519, 521, 518}], 
           LineBox[{520, 522, 517}]}}, {{}, {}, {}, {}}}],
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->True,
       AxesLabel->{
         FormBox["t", TraditionalForm], 
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(i\\)]\\)(t)\"", 
          TraditionalForm]},
       AxesOrigin->{0, 0},
       Epilog->{{
          GrayLevel[0], 
          InsetBox[
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SuperscriptBox[\\(\[Chi]\\), \
\\(*\\)]\\)\[TildeTilde].180\"", FontSize -> 12, StripOnInput -> False], 
            TraditionalForm], {-0.4, 0.06}, {0, 0}]}},
       LabelStyle->Directive[FontSize -> 16],
       Method->{"AxesInFront" -> True},
       PlotLabel->FormBox[
         StyleBox[
         "\"(ii)  \\!\\(\\*SubscriptBox[\\n StyleBox[\\\"t\\\",\\nFontSlant->\
\\\"Italic\\\"], \
\\\"i\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"\[Tilde]\\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\\!\\(\\*\\nStyleBox[\\\"N\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\
\\nStyleBox[\\\"(\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\
\"-\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"1.5\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"1\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSlant->\\\"Italic\\\"]\\)\"", FontSize -> 
          16, StripOnInput -> False], TraditionalForm],
       PlotRange->{{-4, 1.7}, {0, 0.5}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], Automatic},
       Ticks->{{{-4, 
           FormBox[
            RowBox[{"-", "4"}], TraditionalForm]}, {-0.815, 
           FormBox[
           "\"\\!\\(\\*SuperscriptBox[\\(t\\), \
\\(*\\)]\\)\[TildeTilde]-.815\"", TraditionalForm]}, {0, 
           FormBox["0", TraditionalForm]}, {1, 
           FormBox["1", TraditionalForm]}}, {{0, 
           FormBox["0", TraditionalForm]}}}], {555, -148.74611797498108`}, 
      ImageScaled[{0.5, 0.5}], {360, 222.49223594996215`}]}, {InsetBox[
      GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJzll/k7ld33x80ioSRFUVRKFKVoskqlkmSKigwV0YBIopKIepQxlDIV4qOM
R8lw3DeSEmUoQ1RkzDyc4wym7/Zc7dN1Pf/C1y+ul732sNZ+39t6rzjlZGTL
w8XF5cXNxTX7m2/e6eGZGTEyUkj9lf3JKIiLd+xokRYjW1qZDgtXPgGXL0Gl
rvKiZB73qJPu2hjo0Fzb6L1tHtlk26a0RiEOFMdkcqTNRMiJwjw+/fB4eHZY
4Zqj9VzyfFpJ/dibp1DQmOiu6SlMGrh/Z277+gxE+LZbFXoLkQIMFTc9yURY
77dWtOreHLLC85XJOfMkGNoSNmqcLEgqaHxXGI14Dj13xUrCMwTIyqOBXzrp
yXBzrmD5off8ZK0vvW7vgf9BT7vpg+BOPjLujmF9bnQq3LUo0A0c4iVv3lr0
TF/qJZTzP9bgFuYlXwksb4zwTgOtI4FiG+bzkAKeNS0q4hngP9iY/nspN9lb
YWjSeCQTLhbF+kpv5SKz+4b3j4lkwaKTo/7Ct6cJhY8elc9asiAk9smlyteT
RMxg0sOL8dlwdbnjRp5SNjFh2UhZfoUCfPojtwwbmcSo4pn57QdyoKrFfkeg
KINIadda+H7eK+B/KVS1Q5ZOpDkUWPX8egXXWmLfN+qPEdzt9JejKa8h/E2H
UdDdEWL3eqeOaIdc0EhNtnPSGCK8puPk9mu+gdIkx6nHcX3EKkf4vn/8DSjL
392Vnt9NGJ4t1zpB5kEznecprbud6JJJX73QJx8E7ts1SJi1EkV3W2OH1Qpg
qc7Wy5tHG4mueZYeyb0FoMC60knLqyHauz32fwgpBKdXg/Kb9cqIar7jHfIq
VFAd7sy8TiYTdsl2KvWfqFBjl9W5+kMmvJrUWZZwsgjsf8ZbJw+UAzubXDw9
WARUrtMTLzTqwCYyt17nIgGa7dlzZU2+wSTPtHr+TwKm2tJtrPnbYJ7Kslyn
NSS0BT/pboztAH5Nxe+NZiT0FG4udvDrAcOc+9WyfiSkhjneKD/eD71vXBM2
vCBhOKnotF7/EPiapjd9fU+CytIfn2idI3DILui1yy8SVt7u4WrIGYNL4hse
LKOR4L5LOzHOkw6u66pYt2ZIsCh0uUSzY0Bb2roxZf5i4G1Ir7PYyILRFak1
a/iKYfthlsSmTRNQ+sLgQMMECbX19uccA8XIY20XxsW1HsMHRaO4R069cPd6
QjLtEQmHoyOHhRQGYUWZ+WBePglhuZbe8waH4cGOwrGb9SSsMWjvtq0aBcl+
zzvC/STon4owKnhIg18Whdfvs0k45/VNuMJ5HNR2hgxs4S2GzA8hz1L0mKBU
UltyEZ1PbsGXsfKNbBB1X6wwylUMfSO2KrnvxMhvjLrq+VVRcGx0j+otz9/g
s1CqYEcwCdcf8uTaaw2AZX/5UXkKCfv45ZqWuAzDFR5WSNtnEpReW5unHR+F
ZUZe4k7dJGwdK1p7cDUNap0Hlt5mkOBsFdSQQ6cDo/Csdjh3MQiUcgd8amLA
Et8rC73QeUIvF58Oy2YBO+/XwgqeYpB9qqT0QnAIIi+GDdCLSWh1iFXkPjcC
poceemW2kLC61/ay7O4xuEb6f9w7TMKpmvPXVITosKT5180tUyScjlmt9bMP
5X92TrMDqv+JarkCH4IJw1nHZiYQp2V0+U5ls+HIsXyFp9MkXL3ZEWTeLkZu
050JWhARBfENhVfpMz0QPxztsS2ABIkITenFlf1w581TM/UMEmSVb/IvVx+G
zAXmZg6VJCg7yEnWyI3CqpIE9mQHCekFxpIhA2NQZ9Ae1UIngXakZ6fSGzr0
9zmKRaF6Z0H+DZt4BmwRncmyQflXrHrzxN2FBboPmE/uovt6HWsdeCJiECon
2+xPF5GQFzJtLKg8ArELhSaTmkhQjFm5XltwDKYvx3zZNEhCYxTX2cvVNPD4
Uqs3gPTVFeidaJI+DpG6mSd/oPX4DzemS/oz4X7slOhutF+X9feCXy5s2NQO
JY1Iv2+VlLR4rGgQpX5aciGLhAFH9UuwaRxqs9sCXdF9mOscjNwuwQS3dYul
fdD8Y6UV69JGWcCffnrXALrP/jkNwV276fBY5Z64Papn68vKBoe1DLBv6DnV
hOqdbny2fIjJBD0fkYhYxJenhw4tHmNDbJyQ/iF0X1rvEoi0ETFyMKR6fKNH
FOzVZUVnlPSAzEOf6ow7JPx4UPdxKKwfnJfsqlNPI+EeZMgoSA7DeanBmWcV
JLwsmR75xTMKr2Oyv+e3k/BbTvbeppoxsJ6+J8CF6r/lgOTImSg6WDjGc81H
9RfwimSk+jLgjKKkpS7Kx86LonHOiAWLdmvcakH18omZ0NpoMQj8Vrb/hBYi
vSWuPyc8bwTELyecXdRIQso471yT3lHgjwNN+QGkj+mKFqkcGuz2EG0EVP81
/mlmwcHjUN7xXiEIrXfiXs4aKwcmLI92vnwC7eeT12j21YgNx56UbnNA55kO
olGStGmQkt4pfIRJwvqzNis9F45De7iFrSCqf+btVeJ+4wyof9Qp74vm02Te
lcfVsoD3qPBlKzSuePEpf8AqOshvrt9Ri+opn8QKSBRmALm+alkSqjdf2J7d
W1uY4N/hfLQasbhZX7dwHRvKmcdmWCg+26wgYKieDp/nhK6SRvdpwf2DdzGV
Ae/Nqgdd0H7rqwpnboexwF/XUl4F5ZMYYTyypGocDALbHyui9TJFJ9UrnzHB
ViQibAWKF5hzcenoBiZsMRNjeyKOzYlbueEAA5aPSqcKzOpH8t7h55Is+DFi
XWSH5jcm0TJWSUwAd84r8YhJEp468DbWM8VIloT9ukPnoyDSVypDJLEHROdv
lLH3J2GvxNNE8yv9oH8jaXjjSxK0D5Y/T+QfhgYRPx3qBxIuODm2nqeNwJPP
BvekkB4EjHh1+EvHwD/y891g9H6bvn2hyxNAh9WRyhYVSP9qMbdzjrgxYCTA
6/wOdL4cpSy/09osGHwvHs2Lztez9INULAwCabbJ9XkBCS1pOvR7U8OwI8db
SK+BBPsEV1ZL8yjs1jeTf4jeY1XVzIe/k2hgHbyuuwu9xwd59mYpe4/Dgs2q
9qdR/fxSn3XymjOhe4ffjzNov2rb+qRP2mxwCJ2JT0d6WFrc5OiuToPBD4cM
etH7eaSdcUOKfxwa3BQpn9D9NCdIVK3tYQDVMcLyFpqv/b5UMqqEBdFuTa8j
kB72xvmT5lJ0yNT1lPFD96u9IqRj98Q4FIbKWNxF+WzIUpv+XsWEPheNgS7E
lry/N/OVsiE0arOvPvp+6+oMO+6X0+F8apzHN3Qe/+WVZGE6qo+knsR5tN91
j/zDXj4saPLIqDFH+ZTN79XNpY7D8QNdzbP1+qbSO+IczgSvBc8lNqJ4VUXz
psgVTBBuZuvdREyobvGq1GTAwXLtrmEU76vuIXxIkAXL51y/4It4tdHolCzv
BEjsrlk+gvTQYpmyTSCMAXxlfRWms+tdeHc+350Jhi8e3tZH7G+rYdzKxwSu
u3Y2s98H99rTaoLSDHhgs3A5idZT+zWk4/qRAT25/+z1QON+Q/OuKmYxYSH7
0z0xxM09XlaHtZgg+MF0hRviG5pCH0PN0Pfz7Fy6NOIA1riNssIEROR+XaaB
zmO0fdOZ85NiZEpY+r7jZ6IA4ldrFoT3gFO9b0op6i8YtYKh8+37IVLb3D0L
9Rfbop83VkwMQeCQz7uDSJ+V+56bqQ6MwKIuTcMy1F9I9rkpDBag92qKVWiK
9GnH484w8KFDxsibU8+RPt+9nFgg78gA3zMireroPC1cmcrW21iwSsffdRHK
73HLBj4TtUG4ZvXIUhXpMze7Nr+SPgxrqEGbu1C/8N7jhfPTL6OwC/z4DZE+
4YO8W20sDY4JrmzLQ/o8sUvM8trVcViqS546jO5TOn/J3npjJjyZa3vLAe3H
3P5V7+M2NsypC42tRnpQOqGnZ61CA4YPxTYX6dN6RamS3RQd6j4/zM5C+nSm
BKybbGWAcxn0zt73udiSwoh8FmwacpfPRPo01mTF7BWnw3AhbfIk0qeRlXlo
yNg4sB/fMPZA+bwlUywy3zFh75Kp5yOI/Zu6W7gK2BCT3SF2FemzY/6y0GaC
DiLMw5N5s9+L6h654GQGTN22fGCH9ks4kkfz9GRBxqSbqwvKp/7IKwb/63EY
Tc0yGUHsvNPGYE8gE4J0hUq2ovh3W2o1HKSZsObYng7v2e/RkXudjBoD9j70
s+hE+y/eO2y/jIsFZWJX1EIRH14zkigzwYYvBR9dZdH5LznKRTUGMNC7oFlm
gOaXXdtZcd+ZCf3Xd6SZIJZxS8/KnkJ6n/jpMqvPBWfX/zi6gAGNMT/qs9F6
70bskva9ZcDrW3a6V9C49Mztetb/mFBzvIdYjNiZSafKaTCh5PEFrauIg658
cW89woBkUO8QR5z1mT5nrcwEXDOMNrZD+owOnGd64zoDIuJuRexB48OP191R
O8WEzKRN36wQ64RHO5oNMYDfzv3S7P/zEfGjp3pfMaDCtVzNCfETqQ7Pt2uY
4PxZy+TG7PyjJG2eCBMUd3kMzsZH117tia9lwI7yrd+vza7XJMh9bR8Tbkh9
enYJ8SkFZv6GdRNg1GDrJIjOg/0g158f7AcxYz+IGftBzNgPYsZ+EDP2g5ix
H8SM/SBm7AcxYz+IGftBzvgfP4gZ+0HM2A9ixn4QM/aDmLEfxIz9IGbsBzFj
P4j5/4sfxPliP4gZ+0HM2A9ixn4QM/aDnPv84wcxYz+IGftBzNgPYsZ+EDP2
g5ixH8SM/SBm7AcxYz+IWSt3w7f/VbGIgQidOY4/KWAvqWLlNMYgai5ozTd9
kQPX1NYcMdlRQHwSM9onfpMKHfks9WcJvn/r9aHQYdlaksPY72HGfg9zc5++
gOkBNlE24LSsOJUCr9WCnVttmUS+snuUjGcOLDq7O2mDWzFRGJ4mc9KUCu63
khXCG8KILVvmaOmOUaH6ekRLZuAbzvrYz2F+6iOePmXEIoxCVX+tXJgDFeFV
xgeDKMTr1aLBW5OpsD7WQPnJzgROPPZnmLE/w6zkb7n0pd/f7+E77GItjmMS
XNtqaV42OaAtuvhMtnUp0ffCJKd6NxWuNFrYKETGE1O/l9Hl2tB5Lym0nUd1
xPOx/+Lc/9Llb41DWIR33Hvr9ywKyLd71ujb5hKC2qLGWx5QoVskOM939SNO
PPZTmO8bwvCMMJvIaEpet6iMAsIHji7wn+tCvE6RKzbhL+L4H859//E/mA2N
7RTNEv/mN/zu0c5XBSi/C4ldqkdzoNHGt9TV9C2xeH7e2A0NKhifWSFksC6R
SBlNnpxuoILBhXOnD+Znc9bH/gazVK/i5+l0FuGjqtn7uJ8C+gGGITUGeYRx
1ed4xX+ooEznP6c0GcKJx34Fc47s/onUtWwiKfbJvr5cCnjW7UhxO3GHEJtb
cN14ksrxFzh+dfD2Q40X/+azMUrVdYD7MeG85ee8rb1UKFKJNSvabsuJx36A
o58/fgBzx9bely8pf9fzFC6z4q1gEnHdFjShIzmQOHerq0nNW0JvWsnNcCMV
tFN5T3bRk4izvw2Dz9dRIeR34Mo3xVl/8/nT72NOrX5hYlLEInKi+e34uijQ
8b1wKEwnn2B4+gkuu02F2Fqf2xNVAZx43L9jPsD/0ZtrK5uooaxaYppFAfW+
Msan20FEs5Bsy2cGldNv4/jIuG+Rplf+5iO2ii4t/TCGkPbh9UrrpIIId4LJ
g/KThL5c56HkOUWc/hjHkwWUY0tVvQm63VvZr1xF4Fhbe++FGZswoRQbKydS
wESnrSJ09ConHvezmHE/i3m9yksns4K/5wHlZmelGiZRd6PTe/xQDgS0Snx8
K1pGpCSNOeZvoMLWKpq/WvNzolL8+9IVNeg9T5Hzc9r3t764X8VMK70oNVPG
ImqHtTfm/aJA5h2XONfifGLkiktf5C0qFOsUtXzSvMOJx/0n5jDm/T0vdrGJ
b0ayEXPTKXB3e9nnKZFQ4uY/mXqBdCqnX8TxrWHRx7m9/uYzfa7BMdMmjrij
FM+0a6dCvPUjv+MltoT0V4naB4JFnP4Ox8fsv8p1sMyX2NCQEBg+TYXnO0Nv
0SzZREeIPXvuUwo8Xn/smub7S5x43I9h/nN/f/9//BT/wGXAJu5f3JN9JZnC
6ZfwuN2/P2wi5LJweHcMhfN3PW19X27hIvjvev89z3+/t//qB6//49/4BHjE
bMtWZ33dfvjf8XROfv+dj/n/AFj0z/s=
        "], {{{}, {}, {}, 
          {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
           GraphicsGroupBox[
            PolygonBox[{{367, 381, 382, 342, 364, 306, 344, 366, 320, 338, 
             360, 287, 323, 341, 363, 298, 312, 330, 352, 260, 291, 302, 316, 
             334, 356, 279, 286, 297, 311, 329, 351, 259, 258, 257, 256, 255, 
             254, 253, 252, 251, 250, 249, 248, 278, 285, 296, 310, 328, 350, 
             247, 290, 301, 315, 333, 355, 277, 305, 319, 337, 359, 284, 371, 
             345}}]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
          {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV0VVTFQAQgNGrYrdiJxZ2d3cniCIGil1gd3djoCiKYitid3d3d41/xHMf
znxPOzuzGxaXEBGfKRAI/CPY06xkFD1pSQMyk4UQspKN7OQgJ7nITR7yko/8
FKAghShMKEWYaVlRLUZxSlCSUpSmDGUpR3nCqEBFZpmtpJWpQjhVqUZ1zrCK
0fSiFQ2pwVlWM4betKYRV9jEZKLoRE3OsYax9KENjblKIvEMoDO1OM9axtGX
tjThGptJYCBdqM0F1jGefrTjNtuZwRCacp0tTCGartxnF3MYTh0usp4JRPCY
VBbQnjvsCN6foTTjBluZyiCekcZiuvGAFObynuOM4CUHWcZnTlKXS2zgKxN5
wxEiecJefrCQD6Tzmw7cJZnvwT/zjmP8YhgvOMBPlvKJDP7QnJts4xvTeMtR
YnjOfpbwkRN05yG7mUccrzjEcupxmY1Moj9P2cciOnKPncwmlhbcIonpDKYH
j9jDfEbymsOs4Aun+Et9/gNVwGbV
            "]]}, 
          {Hue[0.9060679774997897, 0.6, 0.6], 
           LineBox[{226, 348, 326, 308, 294, 283, 276, 227, 228, 229, 230, 
            231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 243, 
            244, 245, 246, 349, 327, 309, 295, 362, 340, 322}], 
           LineBox[{367, 345, 371, 284, 359, 337, 319, 305, 277, 355, 333, 
            315, 301, 290, 247, 350, 328, 310, 296, 285, 278, 248, 249, 250, 
            251, 252, 253, 254, 255, 256, 257, 258, 259, 351, 329, 311, 297, 
            286, 279, 356, 334, 316, 302, 291, 260, 352, 330, 312, 298, 363, 
            341, 323, 287, 360, 338, 320, 366, 344, 306, 364, 342}], 
           LineBox[{370, 324, 368, 346, 280, 357, 335, 317, 303, 292, 261, 
            353, 331, 313, 299, 288, 281, 262, 263, 264, 265, 266, 267, 268, 
            269, 270, 271, 272, 273, 274, 354, 332, 314, 300, 289, 282, 358, 
            336, 318, 304, 293, 361, 339, 321, 307, 365, 343, 325, 369, 347, 
            372, 275}]}, 
          {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{377, 379, 376}], 
           LineBox[{378, 380, 375}]}}, {{}, {}, {}, {}}}],
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->True,
       AxesLabel->{
         FormBox["t", TraditionalForm], 
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(i\\)]\\)(t)\"", 
          TraditionalForm]},
       AxesOrigin->{0, 0},
       Epilog->{{
          GrayLevel[0], 
          InsetBox[
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SuperscriptBox[\\(\[Chi]\\), \
\\(*\\)]\\)\[TildeTilde].161\"", FontSize -> 12, StripOnInput -> False], 
            TraditionalForm], {-0.4, 0.06}, {0, 0}]}},
       LabelStyle->Directive[FontSize -> 16],
       Method->{"AxesInFront" -> True},
       PlotLabel->FormBox[
         StyleBox[
         "\"(iii)  \\!\\(\\*SubscriptBox[\\n \
StyleBox[\\\"t\\\",\\nFontSlant->\\\"Italic\\\"], \
\\\"i\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"\[Tilde]\\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\\!\\(\\*\\nStyleBox[\\\"N\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\
\\nStyleBox[\\\"(\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\
\"1.5\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"3\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\"", FontSize -> 16, StripOnInput -> False], TraditionalForm],
       PlotRange->{{-4, 1.7}, {0, 0.5}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], Automatic},
       Ticks->{{{-4, 
           FormBox[
            RowBox[{"-", "4"}], TraditionalForm]}, {-1.65, 
           FormBox[
           "\"\\!\\(\\*SuperscriptBox[\\(t\\), \
\\(*\\)]\\)\[TildeTilde]-1.65\"", TraditionalForm]}, {0, 
           FormBox["0", TraditionalForm]}, {1, 
           FormBox["1", TraditionalForm]}}, {{0, 
           FormBox["0", TraditionalForm]}}}], {185, -446.2383539249432}, 
      ImageScaled[{0.5, 0.5}], {360, 222.49223594996215`}], InsetBox[
      GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJztmnk0Ve8X/695HiKKFJExRAkZzkYoKgmlNJiJShJlplCSTCkZMkTIlKQJ
dR5zEUWGe0sSFRkyu9f8u9/1+5y+a33/+v35Xd/1u//c9VrP85y77z7n7P08
e783O5y3cGYkkUgYE4n0r29mHseJ1VU+pHXt0vmxoUAsI9PjR48oH5rgOfLZ
PDEK8+qIqb0oyYtKsywkd5xIxn5oypNDtXiQetCpjZ59uZjs9IZyUWtuNHEg
xDpMuhx7cEAqwMOOC/2JjjMzOF6DVZJzLmv6c6Jg3V93D7z8gHEza9tWhXKg
k0uaW7P39mDKEfK8LTfZke9QyOLkvSFsXD1hyjKPDckk7o4oPjqDDUXy1SQ+
ZkU1loYv7pszQAgXW+O+tywoIH7+WZ8ANwwNHLkd+5MZsXd2uEgaCkPkiUrT
W+NMqO+YFy/PRkloZEnRYOBkQurJDDdN5BQBO3iLb9saRsSRdytDykkdrv0h
l/wWY0AjJuzXjrjqw7k36WGiu0jozactHTZjJiB8cuoaZ/gK/qJrzc+YMkuI
S0+98P75Ep6Ov+9ZW3ECfCU8tjPWLuB7cpw/VR90BmazySuHyDQ8OYz0wGHS
A1p6Tuvc4qXia7z0Q70zfYCliKNFZ9Ms7rJin0vND4aAnvS3ZLNpnN3Ile3t
TDgkvvxhERM5ia8v5lFr2hQNGgV5Luc1xvEQD/njVwRvQ+1Dj+WUjBE8zyAx
8RNbMihKRuqVVAziO9L4FVZiM+HLLGPWzOAAfioyKD8n+CGwRrt0C1r34QIT
gQXefIUgZrzLe+cUGS/u6XEykHgCUvOXfs68asMpL55p3eN7Buef/ZHcub8e
1z/hoHnC/xWoTPwsDUR5uMqr06xLP95Am8uTnzLvSmE1fKkwTa8GTn/LtMsb
a4S0wiF217h6eE1yXCzU+ATP5CUwxa9vQXOgjGuT1WeImp/etEbnPSx/L7G3
Y/kO8ttfVTfNfoDvsamD5PQf8DNptrGuvA2GqnZWu0UMgTg/eLde+QQFCR5B
jcdG4bOgwRcN6U6YePjGcf/oOCQ76Gw2vdIFSmK9rTM/JyE6nO9C9+tu2BI+
ROounwbBtBKWjVlkuKxnkJPhPwuM4p0bszUocKLK68KMCxXEe4bjnoVRgKm7
5NOJ7fPQUP8LmC5RQPvAvOCOHYsw6m8w381Kgfau0+4et/jQaPrgYlVWGBZZ
sWKZn86LVI3ZwMEpAStk7TngX8KDHn7dObWBLwtjvSvZ0PKWG51lkXG3Ol2C
OWVmJNV94UImtlJMP7BKTFnQyc9yjBN1rljuWL/1Leb05/wZ/2UO1KFbprRG
sxO7b1j23JCVAznAsya5x/0Yb+/J0DgRdiSlvtLS9XgcG/1mbuO9lQ3FHn8Z
8iZpAVMzvWk4oc2KpgPrlJWEWKGcqlw8doQFaU1euVRbvgY0JTjOx7gzI2U4
xPX1ohjIPVHQbwxkQtKXUn/fSJeBqwW3pe7dYkQy/D8PPnqnCv2bdthyJzEg
KY6j5FtUbfDv0hZhLCShOfMtF1yMjYA2uq5RPGAVP3fT2BgYzeHTsnHgmfvL
eHoRz1ejT9YQ/o3ZYrBqEQ8ULQvdf90esBfbPj9qmcefO50Oa3zlBqeFlGzP
T1PxPTXlngIWXuBm+IrZWXgO/7EvyHDbez/QM+xoilKfwUfefff4MH0FIpuq
bz09M4X/FtyRwGseCWRjMSaphAm8ruPyA4XTcbAsy7U94swYHhYoGNLafwdo
jovpW4p/49+Zfn/ZQEkD5uh6z0NtP/GprtUjPb8ewARS0wkX78dfywcNFMnm
w4G0uxMcUn9AdmCkCSidkPDiVCjPnwlw1AkU3C/XDXLmA4POLVNweSV2k6Um
Gcwc7lhUJs3A60fxUhWzZHAP/szZ5DkH5dkFefvdKFD6Lu5B/n4arByzUJK4
TgFxgY7pxu0L4N1rZfDVlAIjk85KLxr40FFda1mlz6FYYrF6Wk0PL/q2Nifh
6N5YLObcM/bLQzyI6d2aUOzcfcxnUPpgHgMPsrCLnI9wKMAa3n19eF6EHm+F
N3P7e77ATpfuXuiT4UI1seGK2gL1WJxj1AWKNifSL1OP8LZpx6xy5qJCd3Og
DbZWQUq7+7D0J7sbSyzYkfLwH/3msRHM4+YFGSc3NsRinV8WYkTFYtwOhNX4
sKINlV+ZOmKZIIVhQ0VaLAtq9/2d1x7FB/yMKgx8+cwIHf8j7KEsAmTWaSOF
50zoK5/fSgdsgS3ku8XvmxmRQUzLrfUF24Bfw+7Fxg4GpEJiKubj2AWhDpw/
ZgdIyFcy9flv2A2/yxVcC+ZWcd9jlje3f9oP3sVpDJX8K7jcr61epKLDwAkf
v1N2LeEj4acCP+K28GXEjPXI3gXcoLJsw8BZV3iuGuvZ50zDt3/KaH3U7Qmp
/PESfglzeHPcvY8JWZdBkvan2bFgBm/+dJw15V4oXLVU2Wr8dQpHTAvdpYnX
4HkIqfAozyTuKzsaPeQYA6Jux/b7H/qDe6mESfZ6JkIv885W29xhXKT+3KtD
/SmwvjuXvFr/C9+sd/Zh7NMscPmS6lHFNICbLUmoBjfnQmAS44vT2BgsH5Pm
zQntBCMWcYqI1wT4Lgvc+9bVBQrP7Y4XH5uCmwMdjlrL3bBr+o28icwMGI0m
k5+3kMHTNqa7fHYWRMrXDRy1pABrLUNUK4UKJywXfJboz1O8d7VjQtk86JXG
LN9xpMDLyjN50lZ8KHSU9bDQ52tYUGMDV4wdL9I6c2LAJvUO9jaD8XaQNw8S
esmpalSbjd01FNedieVGBVnzrzZefYIxXba/IZLOhaoa45dUcnBsxiecVv+U
E1V8zf/wo6wZ0/Q77LwB50AVhoarLlfJ2K8f5/rZ37EjjqDl4Rivn1gwp+8u
rz42dODG4APhuUnMXU0lJnyMFe077Ldt14kV7LPCO5ZNjKxocjf+LmWIHVrH
DDKxTSzoipqU60qPINhh/T08Ssyof26b8WE+CfA97qDjtJsJvcnBNZVAHvoC
45IdDzKipUatOUfqDihnZWVbPMaARAX417WrA3ibnjPj9SIhptF31u+C9wCb
NIvsndUVfJUmYM1cdwi2m03ObVBYxgusNeUYFW1gJWRXzQws4n5CNpjqEUfI
uspfsmwxj3eJh2xh1joLovNNB1ZCqXjNd3LPs98XQcP3+5B5yiwuymq1h00q
EE7FvXr3pGYa52j8pHjGNQxi9C0nJBYm8UzPUfk9clGwwKN5fEx4Am/fGM3K
/DQe+tzSZRncJ+Hkat0hG59ukBl29t6kPw1Nsf0tKx5kcGg7E6DEMQsmRbde
84lQwPG+DPZtZA4sJCMMz/tRwOajeOVVnAYfpH5rb75CgeLHv8KWyxbgPM/l
mJGtFPAN+RFzfIAPDTkZtA1ohGCieRbowyIvir/2fKmwKxojbZZ08WHhRX4x
RauCFqmYYlye4NpNPGju7dEnggn52KXeJUUjTW6UGn4hqKTyGcYS8rQibzcX
UjVy79ldWIvJpCfNsB/nRLGfUlQU+NswlY71PpscOJDyyl5Gt8O9mEvq82Hd
8+yIYU7BPFB9GFP+foX7RCQbWr85REqudhbT9it5UJjAiop2+AyMuDJCNGu8
3kwhC8pI8N2TV8MDS167TT80MKN9OZFtQSXroFTV+u2Xdia0oUXC1UxWCuY8
7k39GmZErmaKuoM9SiBbe8kxd4oB/ZQ519xRrAFh+RfenScxIN8B8W/iZgZw
gTvli4YoCaV5e3WD9T4withT52C6gq8NdhOqf2QFLX+eyVv6LuHCLAXximqn
QOHaKbGiiAV8Re2hQ/xRF/gKevPrM2i4iu7pU1+2eEL5XKBy2Mc5/JMC5cpK
6iVYaxG43/zHDI4VUJj9BkNgJWnQj094GueHslbH6giQTpsKnjadxBfVZbJj
dG5B/o1QinfdH7yMrNJRgN8G884252XJEfzxmpyPKZPJ8CAwidtabxD3NSQn
d4tnQebpD9fJPgN4PEWhQFEqFwTvaIqufz8KT1QLWI0sO2GTYgiLhNoEtHO2
xt8t6gJFN3GhNvEpgDcSY3y93VBSaSkUNzYN2/cO7lh8QYaZg0O6Ci9nIW48
XWanMQWeQEWQfSYVjpMvWgRdo0CT9MvUy17zkPJoL1vSOQoYmQyzN3nyoewP
U/veK0dgjNX921JDeJFtgUDtj/HbmJbl+YmAeB7UOcvMOnHiAWY2lslgX8SN
AvJVq6UOlWLlN0P5x6u40PEWO7GTJ19j8YYzL6M/ciILK7Z1en3vsNanDkOm
vRxoJtNg/+vWLqxmbdz73EF2xJWgckGX5QdmPDN8gmGZDRk7u4SP9k5gW6P0
vAO52dDqqNMy2X0Ju66lIM0mzork/KWPpHizQfXUS5m7Wixoqi0217VaAPY/
npVu3Uff7+y8qj6svQnMrzW8EbJjQtkH3Tw1f8kC/aHvDfJgRKx7DsWzUbZD
c4LY0zBfBrTtXOrc/WhduBzXsSMyhoRcbH+cWX/CGEg3eC/b6K7ijY1pIvVf
zYFRJu1VreMyvtVBKUtz/ihUbxPn9AhexD2vSO697+YAE2ISdZZx8zj/h0Ne
MO0O+myBXeoVVPxhmIepuOhFMD/VMmdDnsVJWU21vyb94eCwsWn60jROzRAW
Cyi4ClzXOGF4+xR+QDul2lfzBrgpKGyLtJrAEwNeMUxzxsOruBVLNsVJODW5
T8PhYDfI3t+ibMA2DZ331Is1rchATia5en+cgZuW2quLbBT4dSs0x6pkDmwo
VT/Xe1GA5QC5ROgaDTpvOPbXhdPH7b5W9nstwP4PeqoKOhQ45TTYLFDAh3wt
QKpb5SrGWy7q++w1PZ4Y/NG6NheHiVXsLfRt5kHr2vW4j5VmYG+wnCitn9yo
fXtby1fLIkzo2ZtNKQtcKOlI2bf1xq+w5u+fdolyciFWoZKyh/EN2IJc0J9H
YpwIu6JtHl31CfP17sjs38KB4h8N4r89vmNdjR+zxdXZEWmhItQejWHFO+31
zpqyoUa/F5xK32lYnYICxmg7AyhZpm1/PxnGPNQuwI45eNNVwsdtS4HjxiZ3
tQVpYB9eUL09kgJHa5u2Fk/Nw+avfYyMRykwyt4d+0t/Fv7Qf3ZKjgJ9Re+7
3eSpsMWIIcQshAIllq6N4zQa2BR5NuwMpID3yvi+9dML8Mj3jP0WUQpgDdl4
8SQf4vU9pTTKGYz1ZNtZHOHiQ0bPYe7945vYK39y4owgL1J/YsGdbZGCRToN
+Zgq8iC3PbZqkc/ysNbT0ROP93Aj96Do+79GyzErlxFRLgsu9GqftlUAqRbz
1N70PNOdE+3rqlx3+eJHbNOovPu5CxzoaeoWSo7pV8yU3zMwIogd/dySOnnH
6TfGyx212p3EhngL3WdYuGYxAQbb7RJZrOj8ydgu+MwArBzvmSQqWJBSJcWk
eZAbvLa2eGzrYkY2vCETj+eEQWzPjRtq35nQTUoqi2emJJzSEhHyXmBE+d++
JCWvKsJ2jquvhhkYERPrjBKZVQPC90lXFfEyoNibVmEOFH0475y27ZE8CYlq
jCmszzQF5cm0h+quK/i4tYXkR0UrKGnIb4lNWsIjDxebLXifhEOWLrLWOQv4
mJ2bIGp3homGe7rPKmn45ilNl+HU84B+e+2MHJ/DRwK/nV8WuwTcqzXRxgyz
+MT9FoUu4xDQ0dq92Xv7NJ6dHOxnYBMBJwpGhpDbJM65f3NiUFE0TIislZha
/oMPsNTdnDt9G6J0M1X324/g1umMXl8CksH1Q2zu1aBB/OtRd0HP7kzAtrkl
/ioZwFder9P0/PgQem9/ah5PGAXGofWdljqdcBMeb5ASmoBMzyfW/EldUFSz
MtnPOAX+EYbSQq3d8Ft8080dbdMwGKKnVVpEBvW9QpNOybMQKbehXgTo+7fg
u9SCMCoUn+0PMYiggEvwUw13C/p5U/Y9efUCBbjjHu0SC+FD4fvi9mQ4hWP1
ryeqN8fyojNLL76YytzGpoqkxRczeFBl0C09/qdZWEH1d8ekCm6UwPKM73Lo
Y4xbmL/j2HsuFNM1wqtvUoX1bVUUmejlRD5iOx+IML7DRA79ftQ/xoF41hy7
/3O1EytVzKqenWNHVeaF3g7WA5iCW86fvVzsaI4WZuRzbALjfrbXlbaBDcXp
tDhlBC1ip2o+lwcosSLsJ0u1Qw0raM1O/67ey4KgN19z9y4BqHENMVU+zowG
QD4122ojVKXSQjw8mFBjP6OLkZ4siH4TYOAKZkQWwUdPhx/cDl1kWY631xnQ
d7/ByVBcB3x3RMrUp5HQuM1V4fwPRrCkJSiue2IV7z5hZVzmYQ7D8ZMpSaHL
+OWbVzYWOR2FB2wCJQX3F3HqRGLrdqo9rBuW/bBSMo9nKeAe363cwSqmQ/RT
FxXfXxvutPWZF5w4VLtsS53FzXDj5OyT/rA36VZUosgM/vLAjnO2ZlfBVM7l
l9nBKXznxl6STW0kZGpKJR++OIF7F75+M/gyDmRylN05eSZhjev50AXtbsif
Y+KyGp4C3Mk7wc2YDIIrTT3rymcAw3ILSatkkLtWbB0bOwefJxvPfKfnU5ub
5XK2bjTI9pVJ2UDPt1dfka07LRbAWe7hsWe7KbClMHfJ6SUfIjcZaR69egVr
K5Xj1GnhRWlSPTUcpnFYp+AqhUrhQSZ8e9KybqRjooI/Rz2nuZEj/2evqSOF
mAeY9TNzcqMDX1pPc1q/xETfcaUEredCb8yO7X/XWo8ZNTCV6ityIqmLHCfP
sX/CXKJ/3lFV40C95kElsV19WIVO1E5XQ3a0Or0hKPHTKBZj57Zj6BgbeisQ
bCjIT8NWYmaePjSg55O3CxUyZDIou9pv8V9LzydT0sV2x+jn3XBp/og5KhxQ
93+pR4+3MxsaGjPa50Emxkl35SQFZM9lsURJz8L+WLMbspspIPlwPiqHkwr+
wcLkW/T4ypywW39XDw3Wph727AimAL/1yCDnpwV4YjfVqSlFgTLryqjxrlkY
zheamdlPgRMMvUzrX1OhzfzNkjP9PKTcUrUanjAPWSLmpHenKZBzx3JSpGUO
GOq+/pryodvHu6T2/gENIh5SBcTC6O8j+zmxqW00MJARSGinr08vz9iybS8V
anbXij6h76+PCt08kCs0D1LpV62N6Ptv8sOZx9KCi5Abzni/hJ8CWW5M5C4a
H4LdeVO3fYMw7IFrqoggH/oivsXtkcRN7G7eDkW1DbxIcyPz4MGuZOx5K3ue
8w4eFOqRkbPGNA9bULKycD7IjWwWXEL3R5Zji8fYmnWOcaE+xomibcU1mHDU
97tnvThR80K8l7TsR0zIt+zHWj8OlLyxfGPc2x6sqmm/0aNwdhRnKBS+sjyE
BW/mnb+TwYbOKS6YSj2ZwZYNNfxt8lmRxmfdveOJDGAQ5fZzZzULsufZY5AS
yA3FbAJXvn1lRhZrNzvUpglD+yHJYbshJiQzfMbb/JQkCGQey9ViZEKuWxn3
qN1WBM2i6z+iORjRyU/rw+bK1YFlY8jOZiEGFH5YQZ8tUx/+xN+n2KuSkFN0
Ma5kbAqSeXvuZvqs4I6XNAeOjVtCxvYH4sp5S7i2iqXNqvBJ+LFruKjo6QLe
G+frMhjnDP6c9bZMTTTc88aFd5jxeTAeGHvJuTqHL6/dnOze6wORh38VVfPN
4kb1/csx1GA4wTXpnas3jRvEHakwl40AX9Wh+7J+k7jgeFz+UedoWNt/srZU
dBzP71EyXovdhtwL15Muho7gHbFVlEz9ZGii3by4Pm0Qt59pv3nvaSZECzxP
Odc8gI9KrD97Nu8hGApm5Ry/NAp308Slm1U6wcCkMTeHZQLMdBmVd0Z3wdnz
Hn1nZiZhT45xxkp9N7BaMBmz1E5DfGtF5nguGY7UFZoyRs3CTVbpTjdtCqje
Dy8/6EMFLifhfdfo+61yhScRjgbz8CeoQYfXmwLnd3BYGF3jQ9Umyr/2MoZj
MlVUzp93eZHdWXuaU10C1koJfa6Vx4OyyI++HbfLwshbGe+UVXOjyvwbrDun
SzDNL907+Tq4kO/aA0vfaiqx6+J7323+xYl4efQ6X9x5i73JKIoqmeVAkutM
cjeldmK5L+V17q+wo7q7E3qJjANYmtSVF2cF2NG9fSXn1NZPYIFN7+2eS7Gh
NTZfDjVyLGImrE+XnqmxotvaRWT5M6xw+VJ8c/dBFhT/a2JX3NwaWN5dd6LX
gRmRcArvxQEx8MqN70vxYUK3doea9f+RgVZDy4S2CEYUHnTWVIp7O/QEKKm5
xzIgkWET/h82OpDjqcvZnU1CSQ8vB4ndNIKF20IXS86s4npqT0ulNc2hd0/a
TYbYZVzQ57jcnQ1H4fZFLpJJ8SKe/uHC7/E39lDwsdDK6s08rs5T8mOU1R16
20i6m39Scf2OQUanMC/oN8Wu9LPO4UmjsiZxa/2hbqy0gE9uBtdY8+XAL4mr
4DYvqHXl5BS+aB6u5X8jEqpwcbOqqxP4blRQaBsXBz3FxrM3lyeg06RdUHF7
N5zOvjjf82UKDtqc0nYFMqiolCb9fjgDpnspb10WyGDCaPhEMXQOSH4jjx+c
oUBEwYOfTMdpMLtjVS6fHv8/Onc9bDVYgGqT05WH91Ag0oxVKAanxxObs00B
Slew7Y+3Wa528KKuU7Pad0djsTI9mwsa33nQyaR86a0L97G9QSybohe4UaDb
7cbSLwVYCrOwYcUabsRg2iH1ov8FVl0la/pYnAuJUXqTK8/XY8NrG+N41DhR
Pout2+PSduzkeg9+ijYHeo8OCRtE92GKVJeVqH3sqLeX+3a77Si24jOmmGvP
hlxZSlsXH1ExsWqKx2W1GVistF6mtpPh4AA1aB3LHNSzrJifPkKBL9mCLfJD
VFiTfqBXjh7/Dd7WCiXXzENO65onXXYUMMy4ho6vmwUdCSEl6Y308c1xP/QX
54D9d5sJZwAFtj1RXfnaQoM4Y1tBllD6+YPp907mWnp+TDH1TJelwKdPh35E
N87C0ebk8EwTClyTeI+qSqjQwaw/tkj3Z6BfxYHgq/PwOmIpV4fu7/o1w6Yv
Xs/BipXCvTX09+uz0vCkZyIN7nwrr1qgx38V2eOUu5tpcH3mwwQ33V5cRT34
vSYVhvtY427Sfz9MzY9zH9s8rLsyWN/oTwEZi6nlTUyL8IRq+MBHiAI9p/K1
WBOo8P5GpNIwfT+ncrbhTMVlGqTe2XDVn87XnDUs+5hpUB1izGxIvz6DvKMq
mygVfqptHpkPoseD/nHji81U6EwaCamk55+IcR5f2Sc04HQ1GpS7SvfnULDt
AYwGfwRXHobRx4M0OZrjrakwUcMuhtPHo+bn7BWlFqGulmz7gYsCFto7nM4s
8aEtdwDOqARhHptHYFGYD8n66aVs+RyFMWPfqZ828SLty+etFu8lYy1MyTCt
zoO+NZtUsgrlYXH8mkx6ltxobW2hWcmRcqzVUii78wT9vLZ2JponvAY7rbr7
usUlTsQSYCkSyPAR438zlzUUyIG0BvrUD0f2YLOylfLakezo66yH7p7mIUxd
8eOsdzYbGms/IlUZPoNNuUilUwtZkeZTm+5cLwboM9XsQnUs6NFYDyVmDzc0
+ahFvfjOjHbqh7wy8RQGpW4PUeoIExK4fcfltq4kjLbP/9nIyoQy2l72x55U
hMogzoWTPIzoq+uLM2ei1aGBRdHLRoQB8a259jg5TB+U5dKVsZ0k5GD+KypL
xBTEGO/HdAau4G6S6cLfPlrCvaH0vcslS/j8fR3N00MnQFmp6Lx15QJ+cETG
CvN0BlD84qnQRsN/Xv76/fmG88BpV7jQzEqPJy0RHCdwH2gg0XRWhWfxYyp2
Z5Q+BsPodGM6vmcaD6hcZ7rKEwGsPi60z6GT+JtdJSUr+tEg08AoxC8/jstv
5BlFcrehnCvAlC1uBJeauXunaEsyBPBw2jgWDuJrHx+sqM3KBLXwno1PKAP4
7ANDbobbD4Hazha/5vQozPX9bmPc2glaabnkpsVxOH1J70H1tS54b5RrrTI2
CX03GMXGqrtBaMRH6k/lNHiJxCWw55DBhfEy1fzqLMgG1x66sYsCDUWLApIe
VODXigmWoOejHlKpop3WPMhWtg1z0fdLEiy7eik3+BA3c75UU1sYZq0d8Lgh
hRet7XjRIJuYgOl4Kl/9XMCDRLaW47c0srBxuwQlvXpuNDK6LOdXXIK1vq78
9bubC4VPxzDfDa3EbESOZFX85kSVW3uUVezeYmv28AYkznOg/qwnSvZundiD
lXPznowcKE/Y61oZuR/rDB1PXRFiR9Oy1IP94+OYWmfMyTuybMjNZ5PHjY8L
GCaXIWGpyYqs7lgCsx4rCGvYVTlYsiBb70Nwq3MNiJb9cn7uwoxEo58K+BSK
QcvWXn5VPyZkfN+MltggA/mXpz+X32BEF8Wt774bVgXbA6Um2rcZkHfqg+P8
8jpQMRbT45VHQnCx1OnMaSPwQ8IbXS+u4pI8l9o3bjQH8oPJMPW7y/jHwKeF
VlRriJZnl1//bBFPDjE4xZltDzO159at1s/jHxqTzur1uUH2tLDZ3lEqbvQq
I6bI3QtyGxdrsnnncJru0G2TCT9gTK7ROrBtBt9UwZxlxnkVaN+HHVOcpvDh
5fmxZ2cjwZQpPf981AT++W1Li1ZgHLwoa694PzsBSr4hhphSN7z1K/TM6piC
VoFsp2/aZIB3kj7t6TNwV4HcIkAjg40e36kA3zkIrppM9HengGiFiGGXJQ1y
UXTVL3r8pGl37m/WWgCTxYEUMXp81ZJQz5Ks5UPBDXEq2UxXMEflp9Q+Mi9q
y1M5x58Si0l0s+l2/+BBz4+6mzo9vY+dKrvzXGSFG7XYFPNT0gswlcH5mUQh
btToVOt85NELLPH5Tsm9UlyoJ4Z9U5NePaZbJXdlWoMT3TJ2W7SPaMeOnipr
KQIOtHvdJVqcax/mbNXZL3aQno+UGhaTZEax56GP5SOc2dA7iUsvoi5TMQWb
/fvtlGYgr1H0xbGPZLDbXKvgsjwLZ9leBwxYUcDzadTWpT4qNBoOaAvR4697
ek3VnYp5UO+sDNzlQAFLzfn7hvyzUDAi1S22gR4/bY/Hx03PQeBQwzOgx/s6
lH+itIEGX3ZIvLhDzwfXKIM9pMoFeCjyjO+tPAV+rNkY/wWfhTUTXWVj9Pwt
prJbPDaPCgd9t6vidH9mH3w14+8/D0cd7UnnzlKg6+AzKstz+n6AW2jr+ot0
+3TtzXffosH9UiU7B/r716DeruEmSoMrYaQzknR7P3owbN2gSgXTjnW08RAK
rDecOL2RNA+X+sWtrtDz5QG5yZwNiwvgrR/I9XEdBS54iCeTo6ggX1o+eI+e
f+oDdJuiPWkQJK2S0ULnDT4lT8qWqSDLqzzxr3wk4Krce1iACtl5u9uM6fmo
YdLloVEdFUTYxg7epucb0dXwrvlHNPDL2MXzkJ5vPGmzr8U1aJAknV9cTB+P
udRxue8gPX5sq+fWpo8/+TDLLr9hEa5FhDMb8FIg7RbPkaBAKmwdMpr7Rf9/
Eylbr6s60PNvwAcvJ7p/jBPTPKzH6faEK53UoNszyX/YYfgZFdrb/a/toF8/
dd0P/zo5Gth9kLacovPEYTTDw02DmyJ1M7r0+WntvkOZ7VRQwrOie+njxhQ2
hgAjGvQfUgqworODFK1i29ZFSHv7sfQIB/18+Y++hfTPh9C3EEzoWwgm9C0E
E/oWggl9C8GEvoVgQt9CMKFvIZjQtxBM6FsIJvQtf8f/0bcQTOhbCCb0LQQT
+haCCX0Lwf9f3/L/pm8h/EXoWwgm9C0EE/oWggl9C8GEvuXv/fxH30IwoW8h
mNC3EEzoWwgm9C0EE/oWggl9C8GEvoVgQt9CMKFvIZjQexD8v6b3CFCVO2il
U4lr80X+3rWhCn5UzKs9yA779/1+V+W2UR79ZUK/QTCh3yCY0DMQ/L+mZxB2
1X+4zacaz/CVak2vr4DLV/KkErsTcM1KPp734gg+Bt7pKb318q9/CH0Cwf/t
/fmmxBZLk5inOG9j0T7+gNegnG6umKqb/dd+ot9OMNFvJ5joPxP8v9Z/NuBd
71RmV4srZR6dLt1UAZfIJ+yl7mbifbbG45rxOHy8IPX9TGH5X/8Q/eS/8em/
vJ8qOeDfZub8At9tkPvl27sqGOSOfRUmc++v/UR/lGDOvYcFrnF54Vx1vO0c
vgg8mVndEg+T0Fn10nzmx3v/9guJ+US/kGCif0bw/1r/jGwfVnvxSB1eX4qZ
7Hj/CiydNnOYb83BuWW/kDu1cDA/6+5oUlH21z9EP+zv+/Vf3g8yizoU12b+
Cg/3ldur7VUFirMs7gpLcX/tJ/o7BPt/0sn3sbmO047/sXm3D4FX3qvjbY4k
ZLzrZZOi0N6//Q5i/vZklYtjDCm4XNhs0pYhHC6NSejvCyUhdyMh97cjxvBG
Kd36jbbz3/lEf4Jgoj9BMFGvJ/h/rV6fw7XrolVbHd74ivX39uxXYFDAdPLX
7EN8lcOsqpsPh7jft7a8rH7y1z9E/Z1gboZsq9uNJ//yf1v9+cfXqvEE4wp8
Mc5ePte4CtLbr4YvtkT9tZeoJxOsNlJPbQ2PwcNbIvfW7EQw7SvYOe5OQhNv
JXJuvdvzt75KzOeTnhUVTbqP3zr3oup+FQ5zb/wr3K6T0FMXM8fr2cbwj39w
XR2hs76R6G89lFhPs1cuzr1DQjlul076CRkDqnx6VEwlFP+Al2l8t0dgZfy9
KX7K9+98on5JMFG/JJio5xH8v1bPi+oTbK7jrccvjKnZ1MS8gl0tM9dUv+Ti
j2ZUbzsvvAGVfPGI80b/fl6J+hzBzCz5S7F5/95v/rfVp0qve2VcrK7ANdzC
RodVqqDa+E1Pq+b1fz8v/9SbCI7Urv+wzB2Pz6yX46tXQFBuj9aEeJCQ/h0P
Y/6cPX/rL8T8Ffduj1L7DHzkXofAYC4Oz/NkqbQoElKXUX37LMQYMu3uRRyr
ccarU/c4bAlDf+slxPqXpl9+70wmobr2GcnLU0Zwf48vyaQ+DK97/0Hl0xEE
KcpHAzTfXvg7n6hvEGzY075uUyYJmbWsuyj62Aj+M34Q9QfSf3wqDI+4cqUh
+M/1/3k///N9I/pjYc3/mr8T7tG+l6nNd2r/3/HSv9f7z/UE/x+wxYUu
        "], {{{}, {}, {}, 
          {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
           GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwVzttPz3Ecx/FvNW5CKMlFiNi0NDa3jA7OpP4EhAq5yjmltsgh3TgkctqI
HNqyJqcQNiRi07hxzKm6QDlt9Ojisef79/p8L35xS/My14YGQRBCA9PCgmA6
MwgjiXofDNSpvHD/Y5K7RF8S4k7klPs+3YzyO0MrqOM5f5loX6fFnOQeXcTY
l2g6i1lEHts5wV06Gem7hdr/p4s4TjNfifa2QNdQyDHu8IUR3ubrarZRzW0+
E+Vtnu7jEs/4wwR7rhZwlFt8ItI+V8u5SBu/ibfn6FaO0MRHhtvn6F4u8JRf
jLdn6xaquEkHw+yzdQ/necJPxtlX6WYOc4MPDLWn6W5qaaWXOPtK3UQl13lP
hD1Vd3GOx/Qw1r5CN3KIa7xjiD1FyzhLCz8YY8/SDRzkKm8ZbE/WndTwiO+M
ti/X9RygkTcMss/SHZzhId+ItS/TfPZzhdeE22fqZdr5T4KtVF8R6p7MafcA
ncIDdx/F0GNA
             "]]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
          {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1VWgFlUUgNFLSXcj3Y2CdEgjkoJ0tygNIiEg3SUgqZSUdKN0d0mpdKiU
gDRSrvOw2Ps7/8x9mhkytOxcq1OkiIiIfJEjIsLc6p9PeWz/nvpE9tt0Z0W5
pgtwzd6blOzS/cJ1bNN1eGL/gQZE8cMMZ8W4rj/gur0Pqdit+4fr2K7r8tQ+
m4ZEdf9MZ8W5oQtyw96Xd9mjB4Tr2KHr8cw+h0ZEc/8sZyX4UxfiT/vXpGav
/iZcx05dn+f2uTTmHfd/76wkf+nC/GXvRxr26YHhOnbpBrywz6MJ0d3/g7NS
/K2L8Le9P2nZrweF69itG/KffT5NieH+2c4+5KYuyk37ANJxQA8O17FHN+Kl
/UeaEdP9c5yV5pYuxi37N6TnoB4SrmOvbswr+wKaE8v9c52V4bYuzm37QDJw
SA8N17FPN+G1fSEtiO3+ec7KckeX4I59EBk5rIeF69ivm/LGvoiWlOSus8Fk
4ogeThwO6Ga8tS+mFaX4x9kQMnNUjyAuB3Xz8KCzxGjNh9zTQ8nCMT2SeBzS
LYjET7oNpbmvh5GV43oU8TmsWxKZpbotZXigh5ONE3o0CTiiWxGFZbodZflX
jyA7J/UYEnJUtyYqy/VnlOOhHkkOftVjScQx3YZorNDtKc8jPYqcnNLjSMxx
3ZZ3WKk/pwKP9WhycVqPJwkndDuis0p/QUWe6DHk5oyeQFJO6s+IwWrdgUo8
1WPJw1k9kWT8qtsTkzW6Ix/xTI8jL+f0tyTnlP6cWKzVnajMcz2efPymJ5GC
0/oLYrNOd+ZjXugJvMfvejIpOaM7EIf1ugtV+E9P5H3+0FNIxVndkbhs0F2p
ykv9Lfk5r7/jXc7p8EGOx0bdjWqk5jdnnYnPJt2d6qThd2ddSMDPugc1SMsf
zrqSkF/0l9QkHenJQEYyUdhHOLOZhaxkIzs5yEkuzvs73UjEZt2TT8jNBWfd
ScwW/RW1eKUnUYALeip5uKh7kIStuhe1ea0n8wEX9TTyckl/SVK26d7E8X2Z
r8txV3/KG/sUCnJJTw/vm+sW6Uo80Pm4bO9JMraHZ9o1S+1V6KPj6h/t5flH
1+Gt/TsKcTk8d65ZYa/OjPCe6sX2j0hv32j+G54H+2r7J2S2bw7Pl/Mr5ldk
dZbcTGOuM3eEd8a+LLzXZlUzg7kpvFdmX7/HMxeE74RZwUxnbgjvqXkvPLPm
qvCemzXNTOYv4T0z6/o9/Kc9VWczC5tpzfXmlfB+2Ffaa5DR/rM5M3xX7Evs
lXkYnlu9xl4rPP/6qtmLFOwM77Hfl9ur8bWOrxfaK3Jf1yOSs2m6CFf1rPA9
cvaT/phH4R3Qa+21yWLfEt5/M7/f/gclGgbF
            "]]}, 
          {Hue[0.9060679774997897, 0.6, 0.6], 
           LineBox[{559, 777, 734, 695, 660, 628, 609, 560, 561, 562, 563, 
            564, 565, 566, 567, 568, 569, 570, 571, 572, 573, 574, 575, 778, 
            735, 696, 661, 629, 610, 796}], LineBox[CompressedData["
1:eJwNyttPiHEcx/GnGjdEcigXVJSNxdj6A3KsJOJPQHKqXDkUyWFzTNwkpChb
keOmC4eiIptIxca4USKkLhyjDa+L197f5/N74lbnrcoNCYKgnqSwIHgcGgRz
dQQ17tkayhv3AWa5/+kr6klmlO2t3qKUraxhiv2rtlHLQeYz2t6ttznJNtYy
1f5Nn3CRQywg3N6jdyhjO1nE2L/rUy5xmIWMsb/Tu5xiB+uItf/Qduo4wiLG
2nu1gdPkk02c/ac+4zJHWUyE/b02coYC1jPN/ks7uEIxSxhn/6D3KGcnG5hu
H9JOrnKMFCLtfXqfs+xiI/H239rFNUpIZbz9ozZRQSGbSLD/0edc5zhpTLB/
0mYq2c1mljLR22dt4RxF5JDOJG/9+oDz7CGXZUR5+6IPqWIveWSwnBVkEu2/
AW2lmn1sYYZ9WF9wgxOsZLJ9UB9xgUTfIbx272em+6++ZJ57JDfdczSM/6xx
Yrs=
            "]], 
           LineBox[{821, 732, 818, 775, 625, 807, 764, 725, 690, 658, 594, 
            794, 751, 712, 677, 645, 626, 595, 596, 597, 598, 599, 600, 601, 
            602, 603, 604, 605, 606, 607, 795, 752, 713, 678, 646, 627, 808, 
            765, 726, 691, 659, 811, 768, 729, 694, 815, 772, 733, 819, 776, 
            822, 608}]}, 
          {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{825, 827, 824}], 
           LineBox[{826, 828, 753}]}}, {{}, {}, {}, {}}}],
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->True,
       AxesLabel->{
         FormBox["t", TraditionalForm], 
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(i\\)]\\)(t)\"", 
          TraditionalForm]},
       AxesOrigin->{0, 0},
       Epilog->{{
          GrayLevel[0], 
          InsetBox[
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SuperscriptBox[\\(\[Chi]\\), \
\\(*\\)]\\)\[TildeTilde].067\"", FontSize -> 12, StripOnInput -> False], 
            TraditionalForm], {-0.4, 0.06}, {0, 0}]}},
       LabelStyle->Directive[FontSize -> 16],
       Method->{"AxesInFront" -> True},
       PlotLabel->FormBox[
         StyleBox[
         "\"(iv)  \\!\\(\\*SubscriptBox[\\n StyleBox[\\\"t\\\",\\nFontSlant->\
\\\"Italic\\\"], \
\\\"i\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"\[Tilde]\\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\\!\\(\\*\\nStyleBox[\\\"N\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\
\\nStyleBox[\\\"(\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\
\"1.5\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"1\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\"", FontSize -> 16, StripOnInput -> False], TraditionalForm],
       PlotRange->{{-4, 1.7}, {0, 0.5}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], Automatic},
       Ticks->{{{-4, 
           FormBox[
            RowBox[{"-", "4"}], TraditionalForm]}, {-2.08, 
           FormBox[
           "\"\\!\\(\\*SuperscriptBox[\\(t\\), \
\\(*\\)]\\)\[TildeTilde]-2.08\"", TraditionalForm]}, {0, 
           FormBox["0", TraditionalForm]}, {1, 
           FormBox["1", TraditionalForm]}}, {{0, 
           FormBox["0", TraditionalForm]}}}], {555, -446.2383539249432}, 
      ImageScaled[{0.5, 0.5}], {360, 222.49223594996215`}]}}, {}},
  ContentSelectable->True,
  ImageSize->{975.3902068746864, Automatic},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{{3.49953797237606*^9, 3.499538050816903*^9}, {
   3.4995381274555664`*^9, 3.4995381452133417`*^9}, {3.4995382249553156`*^9, 
   3.4995382700448236`*^9}, 3.4995383354823675`*^9, 3.4995420916159844`*^9, 
   3.4995421641599846`*^9, 3.4995422201299844`*^9, 3.4995422673259845`*^9, 
   3.4995424916899843`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Export", "[", " ", 
   RowBox[{
   "\"\<C:\\\\Users\\\\jf398\\\\Desktop\\\\My \
Dropbox\\\\electoral\\\\fox-roth-fall\\\\varA.pdf\>\"", ",", "var"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.49953771144897*^9, 3.499537775933418*^9}}],

Cell[BoxData["\<\"C:\\\\Users\\\\jf398\\\\Desktop\\\\My \
Dropbox\\\\electoral\\\\fox-roth-fall\\\\varA.pdf\"\>"], "Output",
 CellChangeTimes->{3.499537777177542*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"CDF", "[", 
   RowBox[{
    RowBox[{"NormalDistribution", "[", 
     RowBox[{
      RowBox[{"-", "1.5"}], ",", "1"}], "]"}], ",", ".2"}], "]"}], "-", " ", 
  RowBox[{"CDF", "[", 
   RowBox[{
    RowBox[{"NormalDistribution", "[", 
     RowBox[{
      RowBox[{"-", "1.5"}], ",", "1"}], "]"}], ",", 
    RowBox[{"-", ".2"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4995388809489083`*^9, 3.499538913157129*^9}, {
  3.499538982296042*^9, 3.499538997816594*^9}, {3.4995391250943203`*^9, 
  3.49953916939275*^9}, {3.4995392086666765`*^9, 3.4995392875095606`*^9}, {
  3.499540060070809*^9, 3.4995400619029922`*^9}}],

Cell[BoxData["0.052235021827067296`"], "Output",
 CellChangeTimes->{
  3.4995389141482277`*^9, {3.499538984421254*^9, 3.499539009767789*^9}, 
   3.4995391335081615`*^9, 3.499539179927803*^9, {3.4995392209359035`*^9, 
   3.499539236608471*^9}, {3.499539276425452*^9, 3.499539295379347*^9}, 
   3.499540062830085*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"CDF", "[", 
   RowBox[{
    RowBox[{"NormalDistribution", "[", 
     RowBox[{
      RowBox[{"-", "1.5"}], ",", "2"}], "]"}], ",", ".2"}], "]"}], "-", " ", 
  RowBox[{"CDF", "[", 
   RowBox[{
    RowBox[{"NormalDistribution", "[", 
     RowBox[{
      RowBox[{"-", "1.5"}], ",", "2"}], "]"}], ",", 
    RowBox[{"-", ".2"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4839066569297547`*^9, 3.483906658401902*^9}, {
  3.4839175703434086`*^9, 3.4839175749664087`*^9}, {3.499538927600573*^9, 
  3.4995390059614086`*^9}, {3.499539130902901*^9, 3.4995391778976*^9}, {
  3.4995392149543056`*^9, 3.499539292374047*^9}, {3.4995400524860506`*^9, 
  3.4995400563984413`*^9}}],

Cell[BoxData["0.060183567683172345`"], "Output",
 CellChangeTimes->{{3.499538938483661*^9, 3.499539006847497*^9}, 
   3.499539135325343*^9, 3.499539181317942*^9, 3.499539218911701*^9, {
   3.4995392521450243`*^9, 3.4995392934361525`*^9}, 3.4995400571885204`*^9}]
}, Open  ]],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 3}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 5}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.511904895924264*^9, 3.511904896224294*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Code for Numerical Calculations for Graphics underlying Proposition 6 (i.e., \
effects of issues salience on interest group influence) and Figure 4\
\>", "Subtitle",
 CellChangeTimes->{{3.5119048770863805`*^9, 3.511904958258497*^9}}],

Cell[CellGroupData[{

Cell["Primitive of Policymaking on a High-Salience Issue", "Section",
 CellChangeTimes->{{3.483557172223138*^9, 3.483557185215437*^9}}],

Cell["\<\
To caputure policymaking on an issue of high salinece, we follow the approach \
of Baron 1994, and employ the following reelection function with depends both \
upon the gorup's spending and the public's posterior about the incumbent's \
policy goals:  Note, being preceived to be sympathetic to the group, all else \
equal, harms the incumbent's reelection prospects:\
\>", "Text",
 CellChangeTimes->{{3.48355371655103*^9, 3.48355381075303*^9}, {
  3.5119122848068295`*^9, 3.5119123022938704`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"h", "[", 
   RowBox[{"di_", ",", "dc_", ",", "\[Eta]_"}], "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Alpha]"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"di", "+", "ki"}], "  ", ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"di", "+", "dc", "+", "ki", "+", "kc"}], "   ", ")"}]}], 
     ")"}]}], "+", 
   RowBox[{"\[Alpha]", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"(", 
       RowBox[{"\[Eta]", "/", 
        RowBox[{"(", 
         RowBox[{"\[Eta]", "+", "\[Mu]c"}], ")"}]}], ")"}]}], 
     ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.48355253134203*^9, 3.48355259200003*^9}, {
  3.4835529614430304`*^9, 3.48355305650203*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"di", "+", "ki"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], 
   RowBox[{"dc", "+", "di", "+", "kc", "+", "ki"}]], "+", 
  RowBox[{"\[Alpha]", " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     FractionBox["\[Eta]", 
      RowBox[{"\[Eta]", "+", "\[Mu]c"}]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.48355305784503*^9, 3.483567221704985*^9, 
  3.483993357121193*^9}]
}, Open  ]],

Cell["\<\
The public's posterior about the incumbent's congruence with the interest \
group as a function of the incumbent's policy choice:\
\>", "Text",
 CellChangeTimes->{{3.48355382315303*^9, 3.48355384178403*^9}, {
  3.511912306918333*^9, 3.5119123075353947`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"\[Mu]ix", "[", "c_", "]"}], "=", 
   RowBox[{"Piecewise", "[", 
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"{", " ", 
       RowBox[{"1", ",", " ", 
        RowBox[{"c", "\[GreaterEqual]", "0"}]}], " ", "}"}], ",", 
      RowBox[{"{", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"CDF", "[", 
            RowBox[{
             RowBox[{"NormalDistribution", "[", 
              RowBox[{"m", ",", "v"}], "]"}], ",", "0"}], "]"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"CDF", "[", 
            RowBox[{
             RowBox[{"NormalDistribution", "[", 
              RowBox[{"m", ",", "v"}], "]"}], ",", "c"}], "]"}]}], ")"}]}], 
        "                   ", ",", 
        RowBox[{"c", "<", "0"}]}], " ", "}"}]}], " ", "}"}], " ", 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.48355307108803*^9, 3.48355308877903*^9}, {
  3.48355314552803*^9, 3.48355318330203*^9}, {3.48355321750803*^9, 
  3.48355322042003*^9}, {3.4835532611300297`*^9, 3.4835533585970297`*^9}, {
  3.48355346767103*^9, 3.4835534713910303`*^9}}],

Cell[BoxData[
 RowBox[{"\[Piecewise]", GridBox[{
    {"1", 
     RowBox[{"c", "\[GreaterEqual]", "0"}]},
    {
     FractionBox[
      RowBox[{"1", "+", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"Erf", "[", 
           FractionBox["m", 
            RowBox[{
             SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
      RowBox[{"1", "+", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "-", 
          RowBox[{"Erf", "[", 
           FractionBox[
            RowBox[{"c", "-", "m"}], 
            RowBox[{
             SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]], 
     RowBox[{"c", "<", "0"}]},
    {"0", 
     TagBox["True",
      "PiecewiseDefault",
      AutoDelete->False,
      DeletionWarning->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.84]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}]}]], "Output",
 CellChangeTimes->{3.48355336062403*^9, 3.48355347251803*^9, 
  3.48356722375219*^9, 3.483993359444193*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Mu]iy", "[", "c_", "]"}], "=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"CDF", "[", 
           RowBox[{
            RowBox[{"NormalDistribution", "[", 
             RowBox[{"m", ",", "v"}], "]"}], ",", "c"}], "]"}], "-", 
          RowBox[{"CDF", "[", 
           RowBox[{
            RowBox[{"NormalDistribution", "[", 
             RowBox[{"m", ",", "v"}], "]"}], ",", "0"}], "]"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"CDF", "[", 
          RowBox[{
           RowBox[{"NormalDistribution", "[", 
            RowBox[{"m", ",", "v"}], "]"}], ",", "c"}], "]"}], ")"}]}], ",", 
       " ", 
       RowBox[{"c", "\[GreaterEqual]", "0"}]}], " ", "}"}], ",", 
     RowBox[{"{", "  ", 
      RowBox[{"0", ",", 
       RowBox[{"c", "<", "0"}]}], " ", "}"}]}], " ", "}"}], " ", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.48355311178903*^9, 3.48355311966603*^9}, {
  3.48355340071303*^9, 3.48355356295303*^9}}],

Cell[BoxData[
 RowBox[{"\[Piecewise]", GridBox[{
    {
     FractionBox[
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"Erf", "[", 
             FractionBox[
              RowBox[{"c", "-", "m"}], 
              RowBox[{
               SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}], "+", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"Erf", "[", 
             FractionBox["m", 
              RowBox[{
               SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], ")"}]}], 
      RowBox[{"1", "+", 
       RowBox[{"Erf", "[", 
        FractionBox[
         RowBox[{"c", "-", "m"}], 
         RowBox[{
          SqrtBox["2"], " ", "v"}]], "]"}]}]], 
     RowBox[{"c", "\[GreaterEqual]", "0"}]},
    {"0", 
     TagBox["True",
      "PiecewiseDefault",
      AutoDelete->False,
      DeletionWarning->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.84]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}]}]], "Output",
 CellChangeTimes->{3.48355365103403*^9, 3.4835672264314575`*^9, 
  3.483993361026193*^9}]
}, Open  ]],

Cell["The interest group's (IG) problem is the following:", "Text",
 CellChangeTimes->{{3.48355385663103*^9, 3.48355386382203*^9}, {
  3.511912318463487*^9, 3.511912319743615*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ig", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"h", "[", 
     RowBox[{"di", ",", "dc", ",", "\[Eta]"}], "]"}], 
    RowBox[{"(", 
     RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}], "tg"}], "-", "di", "-", 
   "dc"}]}]], "Input",
 CellChangeTimes->{{3.48355386988503*^9, 3.4835538862620296`*^9}, {
  3.48355412656003*^9, 3.4835542025240297`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "dc"}], "-", "di", "+", 
  RowBox[{"tg", " ", 
   RowBox[{"(", 
    RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"di", "+", "ki"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], 
      RowBox[{"dc", "+", "di", "+", "kc", "+", "ki"}]], "+", 
     RowBox[{"\[Alpha]", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox["\[Eta]", 
         RowBox[{"\[Eta]", "+", "\[Mu]c"}]]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.48355420867303*^9, 3.483567229333748*^9, 
  3.483993362553193*^9}]
}, Open  ]],

Cell["Derivaitive of IG probelm w.r.t. to di:", "Text",
 CellChangeTimes->{{3.4835554889191074`*^9, 3.483555514967712*^9}, {
  3.5119123239030313`*^9, 3.5119123260072412`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{"ig", ",", "di"}], "]"}]], "Input",
 CellChangeTimes->{{3.48355421949903*^9, 3.4835542219390297`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "+", 
  RowBox[{"tg", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"di", "+", "ki"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"dc", "+", "di", "+", "kc", "+", "ki"}], ")"}], "2"]]}], "+", 
     FractionBox[
      RowBox[{"1", "-", "\[Alpha]"}], 
      RowBox[{"dc", "+", "di", "+", "kc", "+", "ki"}]]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.48355423098403*^9, 3.4835672324230566`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"di", "=", "0"}], ",", 
     RowBox[{"dc", "=", "0"}]}], "}"}], ",", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{"tg", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"di", "+", "ki"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"dc", "+", "di", "+", "kc", "+", "ki"}], ")"}], "2"]]}], 
       "+", 
       FractionBox[
        RowBox[{"1", "-", "\[Alpha]"}], 
        RowBox[{"dc", "+", "di", "+", "kc", "+", "ki"}]]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}]}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.48355423800303*^9, 3.48355426299503*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "+", 
  RowBox[{"tg", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"ki", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], "+", 
     FractionBox[
      RowBox[{"1", "-", "\[Alpha]"}], 
      RowBox[{"kc", "+", "ki"}]]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.4835542639830303`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Simplify", "[", "   ", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{"tg", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"ki", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], "+", 
       FractionBox[
        RowBox[{"1", "-", "\[Alpha]"}], 
        RowBox[{"kc", "+", "ki"}]]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}]}]}], 
   "                              ", "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.4835550354811525`*^9, 3.4835550497772975`*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["kc", "2"], "+", 
    SuperscriptBox["ki", "2"], "+", 
    RowBox[{"kc", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "ki"}], "+", 
       RowBox[{"tg", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}]}]}], ")"}]}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}]], "Output",
 CellChangeTimes->{3.483555057680247*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dc", "=", "0"}], "}"}], ",", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{"tg", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"di", "+", "ki"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"dc", "+", "di", "+", "kc", "+", "ki"}], ")"}], "2"]]}], 
       "+", 
       FractionBox[
        RowBox[{"1", "-", "\[Alpha]"}], 
        RowBox[{"dc", "+", "di", "+", "kc", "+", "ki"}]]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}]}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.48355432345586*^9, 3.483554324202613*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "+", 
  RowBox[{"tg", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"di", "+", "ki"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"di", "+", "kc", "+", "ki"}], ")"}], "2"]]}], "+", 
     FractionBox[
      RowBox[{"1", "-", "\[Alpha]"}], 
      RowBox[{"di", "+", "kc", "+", "ki"}]]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.4835543255646343`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.48355426597103*^9, 3.48355426992803*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["kc", "2"], "+", 
    SuperscriptBox["ki", "2"], "+", 
    RowBox[{"kc", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "ki"}], "+", 
       RowBox[{"tg", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}]}]}], ")"}]}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}]], "Output",
 CellChangeTimes->{3.48355427058103*^9}]
}, Open  ]],

Cell["\<\
An interior solution to IG problem which involves contirbutions to the \
incumbent must satisify:\
\>", "Text",
 CellChangeTimes->{{3.483555541640379*^9, 3.483555593723587*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     RowBox[{"tg", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"di", "+", "ki"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"di", "+", "kc", "+", "ki"}], ")"}], "2"]]}], "+", 
        FractionBox[
         RowBox[{"1", "-", "\[Alpha]"}], 
         RowBox[{"di", "+", "kc", "+", "ki"}]]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}]}]}], "\[Equal]", "0"}], ",", 
   "di"}], "]"}]], "Input",
 CellChangeTimes->{{3.483554277023695*^9, 3.4835542955459747`*^9}, {
  3.4835543358997335`*^9, 3.483554341288598*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"di", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "kc"}], "-", "ki", "-", 
      SqrtBox[
       RowBox[{
        RowBox[{"kc", " ", "tg", " ", "\[Eta]"}], "-", 
        RowBox[{"kc", " ", "tg", " ", "\[Alpha]", " ", "\[Eta]"}], "-", 
        RowBox[{"kc", " ", "tg", " ", "\[Mu]c"}], "+", 
        RowBox[{"kc", " ", "tg", " ", "\[Alpha]", " ", "\[Mu]c"}]}]]}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"di", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "kc"}], "-", "ki", "+", 
      SqrtBox[
       RowBox[{
        RowBox[{"kc", " ", "tg", " ", "\[Eta]"}], "-", 
        RowBox[{"kc", " ", "tg", " ", "\[Alpha]", " ", "\[Eta]"}], "-", 
        RowBox[{"kc", " ", "tg", " ", "\[Mu]c"}], "+", 
        RowBox[{"kc", " ", "tg", " ", "\[Alpha]", " ", "\[Mu]c"}]}]]}]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4835542965095263`*^9, 3.4835543461194067`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"-", "kc"}], "-", "ki", "+", 
   SqrtBox[
    RowBox[{
     RowBox[{"kc", " ", "tg", " ", "\[Eta]"}], "-", 
     RowBox[{"kc", " ", "tg", " ", "\[Alpha]", " ", "\[Eta]"}], "-", 
     RowBox[{"kc", " ", "tg", " ", "\[Mu]c"}], "+", 
     RowBox[{"kc", " ", "tg", " ", "\[Alpha]", " ", "\[Mu]c"}]}]]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4835543627978897`*^9, 3.48355436552695*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "kc"}], "-", "ki", "+", 
  SqrtBox[
   RowBox[{
    RowBox[{"-", "kc"}], " ", "tg", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.483554366402176*^9}]
}, Open  ]],

Cell["Deriviative IG problem w.r.t. to dc:", "Text",
 CellChangeTimes->{{3.483555559402155*^9, 3.4835555681470294`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{"ig", ",", "dc"}], "]"}]], "Input",
 CellChangeTimes->{{3.4835543959591336`*^9, 3.4835543980849705`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"di", "+", "ki"}], ")"}], " ", "tg", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"dc", "+", "di", "+", "kc", "+", "ki"}], ")"}], 
    "2"]]}]], "Output",
 CellChangeTimes->{3.4835543996718197`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"di", "=", "0"}], ",", 
     RowBox[{"dc", "=", "0"}]}], "}"}], ",", 
   RowBox[{
    RowBox[{"-", "1"}], "-", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"di", "+", "ki"}], ")"}], " ", "tg", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"dc", "+", "di", "+", "kc", "+", "ki"}], ")"}], "2"]]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.483554403650487*^9, 3.483554433117111*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "-", 
  FractionBox[
   RowBox[{"ki", " ", "tg", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}]], "Output",
 CellChangeTimes->{3.4835544349849973`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"-", "1"}], "-", 
    FractionBox[
     RowBox[{"ki", " ", "tg", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.483555275487605*^9, 3.4835553083201704`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "+", 
  FractionBox[
   RowBox[{"ki", " ", "tg", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}]], "Output",
 CellChangeTimes->{{3.483555288243156*^9, 3.4835553100075083`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"di", "=", "0"}], "}"}], ",", 
   RowBox[{
    RowBox[{"-", "1"}], "-", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"di", "+", "ki"}], ")"}], " ", "tg", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"dc", "+", "di", "+", "kc", "+", "ki"}], ")"}], "2"]]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4835544418051386`*^9, 3.483554464647343*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "-", 
  FractionBox[
   RowBox[{"ki", " ", "tg", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"dc", "+", "kc", "+", "ki"}], ")"}], "2"]]}]], "Output",
 CellChangeTimes->{3.4835544665152287`*^9}]
}, Open  ]],

Cell["\<\
An interior solution to IG problem which involves contirbutions to challenger \
must satisify:\
\>", "Text",
 CellChangeTimes->{{3.483555616377852*^9, 3.483555628197034*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "1"}], "-", 
     FractionBox[
      RowBox[{"ki", " ", "tg", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Alpha]"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"dc", "+", "kc", "+", "ki"}], ")"}], "2"]]}], "\[Equal]", 
    "0"}], ",", "dc"}], "    ", "]"}]], "Input",
 CellChangeTimes->{{3.483554468405196*^9, 3.48355448322583*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dc", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "kc"}], "-", "ki", "-", 
      SqrtBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "ki"}], " ", "tg", " ", "\[Eta]"}], "+", 
        RowBox[{"ki", " ", "tg", " ", "\[Alpha]", " ", "\[Eta]"}], "+", 
        RowBox[{"ki", " ", "tg", " ", "\[Mu]c"}], "-", 
        RowBox[{"ki", " ", "tg", " ", "\[Alpha]", " ", "\[Mu]c"}]}]]}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"dc", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "kc"}], "-", "ki", "+", 
      SqrtBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "ki"}], " ", "tg", " ", "\[Eta]"}], "+", 
        RowBox[{"ki", " ", "tg", " ", "\[Alpha]", " ", "\[Eta]"}], "+", 
        RowBox[{"ki", " ", "tg", " ", "\[Mu]c"}], "-", 
        RowBox[{"ki", " ", "tg", " ", "\[Alpha]", " ", "\[Mu]c"}]}]]}]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4835544851449046`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "    ", 
  RowBox[{
   RowBox[{"-", "kc"}], "-", "ki", "+", 
   SqrtBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "ki"}], " ", "tg", " ", "\[Eta]"}], "+", 
     RowBox[{"ki", " ", "tg", " ", "\[Alpha]", " ", "\[Eta]"}], "+", 
     RowBox[{"ki", " ", "tg", " ", "\[Mu]c"}], "-", 
     RowBox[{"ki", " ", "tg", " ", "\[Alpha]", " ", "\[Mu]c"}]}]]}], 
  "                            ", "]"}]], "Input",
 CellChangeTimes->{{3.4835544889840574`*^9, 3.483554503012772*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "kc"}], "-", "ki", "+", 
  SqrtBox[
   RowBox[{"ki", " ", "tg", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"\[Eta]", "-", "\[Mu]c"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.483554505644473*^9}]
}, Open  ]],

Cell["\<\
Interest group's optimal behavior given cutpoint of incumbent's strategy is \
characterized by cutpoint c:\
\>", "Text",
 CellChangeTimes->{{3.483555642477462*^9, 3.483555667494963*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"dix", "[", "c_", "]"}], "=", 
   RowBox[{"Piecewise", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "   ", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "kc"}], "-", "ki", "+", 
         SqrtBox[
          RowBox[{
           RowBox[{"-", "kc"}], " ", "tg", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Mu]ix", "[", "c", "]"}], "-", "\[Mu]c"}], ")"}]}]]}], 
        ",", "    ", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["kc", "2"], "+", 
            SuperscriptBox["ki", "2"], "+", 
            RowBox[{"kc", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "ki"}], "+", 
               RowBox[{"tg", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"\[Mu]ix", "[", "c", "]"}], "-", "\[Mu]c"}], 
                 ")"}]}]}], ")"}]}]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]}], 
       "          ", "}"}], ",", 
      RowBox[{"{", "   ", 
       RowBox[{"0", ",", "     ", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["kc", "2"], "+", 
            SuperscriptBox["ki", "2"], "+", 
            RowBox[{"kc", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "ki"}], "+", 
               RowBox[{"tg", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"\[Mu]ix", "[", "c", "]"}], "-", "\[Mu]c"}], 
                 ")"}]}]}], ")"}]}]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], "\[LessEqual]", 
         "0"}]}], " ", "}"}]}], "}"}], " ", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4835545672204647`*^9, 3.483554586674079*^9}, {
  3.4835549649579086`*^9, 3.4835550119644003`*^9}, {3.483555101844318*^9, 
  3.4835551725326443`*^9}}],

Cell[BoxData[
 RowBox[{"\[Piecewise]", GridBox[{
    {
     RowBox[{
      RowBox[{"-", "kc"}], "-", "ki", "+", 
      SqrtBox[
       RowBox[{
        RowBox[{"-", "kc"}], " ", "tg", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "\[Mu]c"}], "+", 
          RowBox[{"\[Piecewise]", GridBox[{
             {"1", 
              RowBox[{"c", "\[GreaterEqual]", "0"}]},
             {
              FractionBox[
               RowBox[{"1", "+", 
                RowBox[{
                 FractionBox["1", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
               RowBox[{"1", "+", 
                RowBox[{
                 FractionBox["1", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "-", 
                   RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]], 
              RowBox[{"c", "<", "0"}]},
             {"0", 
              TagBox["True",
               "PiecewiseDefault",
               AutoDelete->False,
               DeletionWarning->True]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{1.}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.84]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}]}], ")"}]}]]}], 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["kc", "2"], "+", 
         SuperscriptBox["ki", "2"], "+", 
         RowBox[{"kc", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "ki"}], "+", 
            RowBox[{"tg", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "\[Mu]c"}], "+", 
               RowBox[{"\[Piecewise]", GridBox[{
                  {"1", 
                   RowBox[{"c", "\[GreaterEqual]", "0"}]},
                  {
                   FractionBox[
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]], 
                   RowBox[{"c", "<", "0"}]},
                  {"0", 
                   TagBox["True",
                    "PiecewiseDefault",
                    AutoDelete->False,
                    DeletionWarning->True]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
                 
                 GridBoxItemSize->{
                  "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{1.}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.84]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}]}], ")"}]}]}], 
           ")"}]}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
    {"0", 
     TagBox["True",
      "PiecewiseDefault",
      AutoDelete->False,
      DeletionWarning->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.84]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}]}]], "Output",
 CellChangeTimes->{3.4835551907226553`*^9, 3.483567243647179*^9, 
  3.483993372789193*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"dcx", "[", "c_", "]"}], "=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "   ", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "kc"}], "-", "ki", "+", 
        SqrtBox[
         RowBox[{"ki", " ", "tg", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Mu]ix", "[", "c", "]"}], "-", "\[Mu]c"}], ")"}]}]]}], 
       ",", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          RowBox[{"ki", " ", "tg", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Mu]ix", "[", "c", "]"}], "-", "\[Mu]c"}], ")"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], " ", ">", "0"}]}], 
      "          ", "}"}], ",", 
     RowBox[{"{", "   ", 
      RowBox[{"0", ",", "     ", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          RowBox[{"ki", " ", "tg", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Mu]ix", "[", "c", "]"}], "-", "\[Mu]c"}], ")"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], "\[LessEqual]", 
        "0"}]}], " ", "}"}]}], "}"}], " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.483554589037383*^9, 3.4835545947483673`*^9}, {
  3.4835552489843054`*^9, 3.483555268739256*^9}, {3.4835553485532155`*^9, 
  3.483555389644432*^9}}],

Cell[BoxData[
 RowBox[{"\[Piecewise]", GridBox[{
    {
     RowBox[{
      RowBox[{"-", "kc"}], "-", "ki", "+", 
      SqrtBox[
       RowBox[{"ki", " ", "tg", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "\[Mu]c"}], "+", 
          RowBox[{"\[Piecewise]", GridBox[{
             {"1", 
              RowBox[{"c", "\[GreaterEqual]", "0"}]},
             {
              FractionBox[
               RowBox[{"1", "+", 
                RowBox[{
                 FractionBox["1", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
               RowBox[{"1", "+", 
                RowBox[{
                 FractionBox["1", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "-", 
                   RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]], 
              RowBox[{"c", "<", "0"}]},
             {"0", 
              TagBox["True",
               "PiecewiseDefault",
               AutoDelete->False,
               DeletionWarning->True]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{1.}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.84]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}]}], ")"}]}]]}], 
     RowBox[{
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       FractionBox[
        RowBox[{"ki", " ", "tg", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Mu]c"}], "+", 
           RowBox[{"\[Piecewise]", GridBox[{
              {"1", 
               RowBox[{"c", "\[GreaterEqual]", "0"}]},
              {
               FractionBox[
                RowBox[{"1", "+", 
                 RowBox[{
                  FractionBox["1", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
                RowBox[{"1", "+", 
                 RowBox[{
                  FractionBox["1", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]], 
               RowBox[{"c", "<", "0"}]},
              {"0", 
               TagBox["True",
                "PiecewiseDefault",
                AutoDelete->False,
                DeletionWarning->True]}
             },
             GridBoxAlignment->{
              "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{1.}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.84]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}]}], ")"}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
    {"0", 
     TagBox["True",
      "PiecewiseDefault",
      AutoDelete->False,
      DeletionWarning->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.84]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}]}]], "Output",
 CellChangeTimes->{3.483555397949093*^9, 3.483567270327847*^9, 
  3.4839933754451933`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"diy", "[", "c_", "]"}], "=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "   ", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "kc"}], "-", "ki", "+", 
        SqrtBox[
         RowBox[{
          RowBox[{"-", "kc"}], " ", "tg", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Mu]iy", "[", "c", "]"}], "-", "\[Mu]c"}], ")"}]}]]}], 
       ",", "    ", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           SuperscriptBox["kc", "2"], "+", 
           SuperscriptBox["ki", "2"], "+", 
           RowBox[{"kc", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "ki"}], "+", 
              RowBox[{"tg", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Mu]iy", "[", "c", "]"}], "-", "\[Mu]c"}], 
                ")"}]}]}], ")"}]}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]}], 
      "          ", "}"}], ",", 
     RowBox[{"{", "   ", 
      RowBox[{"0", ",", "     ", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           SuperscriptBox["kc", "2"], "+", 
           SuperscriptBox["ki", "2"], "+", 
           RowBox[{"kc", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "ki"}], "+", 
              RowBox[{"tg", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Mu]iy", "[", "c", "]"}], "-", "\[Mu]c"}], 
                ")"}]}]}], ")"}]}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], "\[LessEqual]", 
        "0"}]}], " ", "}"}]}], "}"}], " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.4835545962704954`*^9, 3.4835546093287516`*^9}, {
  3.483555419276357*^9, 3.483555430571616*^9}}],

Cell[BoxData[
 RowBox[{"\[Piecewise]", GridBox[{
    {
     RowBox[{
      RowBox[{"-", "kc"}], "-", "ki", "+", 
      SqrtBox[
       RowBox[{
        RowBox[{"-", "kc"}], " ", "tg", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "\[Mu]c"}], "+", 
          RowBox[{"\[Piecewise]", GridBox[{
             {
              FractionBox[
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   FractionBox["1", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}], "+", 
                  RowBox[{
                   FractionBox["1", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], ")"}]}], 
               RowBox[{"1", "+", 
                RowBox[{"Erf", "[", 
                 FractionBox[
                  RowBox[{"c", "-", "m"}], 
                  RowBox[{
                   SqrtBox["2"], " ", "v"}]], "]"}]}]], 
              RowBox[{"c", "\[GreaterEqual]", "0"}]},
             {"0", 
              TagBox["True",
               "PiecewiseDefault",
               AutoDelete->False,
               DeletionWarning->True]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{1.}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.84]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}]}], ")"}]}]]}], 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["kc", "2"], "+", 
         SuperscriptBox["ki", "2"], "+", 
         RowBox[{"kc", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "ki"}], "+", 
            RowBox[{"tg", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "\[Mu]c"}], "+", 
               RowBox[{"\[Piecewise]", GridBox[{
                  {
                   FractionBox[
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}], "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], ")"}]}], 
                    RowBox[{"1", "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}]], 
                   RowBox[{"c", "\[GreaterEqual]", "0"}]},
                  {"0", 
                   TagBox["True",
                    "PiecewiseDefault",
                    AutoDelete->False,
                    DeletionWarning->True]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
                 
                 GridBoxItemSize->{
                  "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{1.}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.84]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}]}], ")"}]}]}], 
           ")"}]}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
    {"0", 
     TagBox["True",
      "PiecewiseDefault",
      AutoDelete->False,
      DeletionWarning->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.84]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}]}]], "Output",
 CellChangeTimes->{3.4835554331541324`*^9, 3.483567272697084*^9, 
  3.4839933793991933`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"dcy", "[", "c_", "]"}], "=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "   ", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "kc"}], "-", "ki", "+", 
        SqrtBox[
         RowBox[{"ki", " ", "tg", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Mu]iy", "[", "c", "]"}], "-", "\[Mu]c"}], ")"}]}]]}], 
       ",", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          RowBox[{"ki", " ", "tg", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Mu]iy", "[", "c", "]"}], "-", "\[Mu]c"}], ")"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], " ", ">", "0"}]}], 
      "          ", "}"}], ",", 
     RowBox[{"{", "   ", 
      RowBox[{"0", ",", "     ", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          RowBox[{"ki", " ", "tg", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Mu]iy", "[", "c", "]"}], "-", "\[Mu]c"}], ")"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], "\[LessEqual]", 
        "0"}]}], " ", "}"}]}], "}"}], " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.483554602229827*^9, 3.4835546125081964`*^9}, {
  3.4835554471199245`*^9, 3.483555469103321*^9}, {3.4835557421814313`*^9, 
  3.4835557449967127`*^9}}],

Cell[BoxData[
 RowBox[{"\[Piecewise]", GridBox[{
    {
     RowBox[{
      RowBox[{"-", "kc"}], "-", "ki", "+", 
      SqrtBox[
       RowBox[{"ki", " ", "tg", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "\[Mu]c"}], "+", 
          RowBox[{"\[Piecewise]", GridBox[{
             {
              FractionBox[
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   FractionBox["1", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}], "+", 
                  RowBox[{
                   FractionBox["1", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], ")"}]}], 
               RowBox[{"1", "+", 
                RowBox[{"Erf", "[", 
                 FractionBox[
                  RowBox[{"c", "-", "m"}], 
                  RowBox[{
                   SqrtBox["2"], " ", "v"}]], "]"}]}]], 
              RowBox[{"c", "\[GreaterEqual]", "0"}]},
             {"0", 
              TagBox["True",
               "PiecewiseDefault",
               AutoDelete->False,
               DeletionWarning->True]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{1.}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.84]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}]}], ")"}]}]]}], 
     RowBox[{
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       FractionBox[
        RowBox[{"ki", " ", "tg", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Alpha]"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Mu]c"}], "+", 
           RowBox[{"\[Piecewise]", GridBox[{
              {
               FractionBox[
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}], "+", 
                   RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], ")"}]}], 
                RowBox[{"1", "+", 
                 RowBox[{"Erf", "[", 
                  FractionBox[
                   RowBox[{"c", "-", "m"}], 
                   RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}]], 
               RowBox[{"c", "\[GreaterEqual]", "0"}]},
              {"0", 
               TagBox["True",
                "PiecewiseDefault",
                AutoDelete->False,
                DeletionWarning->True]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{1.}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.84]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}]}], ")"}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
    {"0", 
     TagBox["True",
      "PiecewiseDefault",
      AutoDelete->False,
      DeletionWarning->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.84]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}]}]], "Output",
 CellChangeTimes->{
  3.483555470734647*^9, 3.483555677942008*^9, {3.4835557084620595`*^9, 
   3.483555754919705*^9}, 3.4835672751673307`*^9, 3.483993382102193*^9}]
}, Open  ]],

Cell[TextData[{
 "Characterizing the cutpoint of the incumbent's strategy when spending ",
 StyleBox["is ",
  FontSlant->"Italic"],
 "and ",
 StyleBox["is not ",
  FontSlant->"Italic"],
 "allowed, repsectively:"
}], "Text",
 CellChangeTimes->{{3.483557128332749*^9, 3.48355716374329*^9}, {
  3.5119032579844866`*^9, 3.5119032761132994`*^9}}],

Cell[BoxData[
 RowBox[{"cut", "=", 
  RowBox[{"Piecewise", "[", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Rho]", 
          RowBox[{"(", " ", 
           RowBox[{
            RowBox[{"h", "[", 
             RowBox[{
              RowBox[{"diy", "[", "c", "]"}], ",", 
              RowBox[{"dcy", "[", "c", "]"}], ",", 
              RowBox[{"\[Mu]iy", "[", "c", "]"}]}], "  ", "]"}], "-", 
            RowBox[{"h", "[", 
             RowBox[{
              RowBox[{"dix", "[", "c", "]"}], ",", 
              RowBox[{"dcx", "[", "c", "]"}], ",", 
              RowBox[{"\[Mu]ix", "[", "c", "]"}]}], " ", "]"}]}], "  ", 
           ")"}]}], ")"}], "/", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{
               RowBox[{"diy", "[", "c", "]"}], ",", 
               RowBox[{"dcy", "[", "c", "]"}], ",", 
               RowBox[{"\[Mu]iy", "[", "c", "]"}]}], "]"}], "-", 
             RowBox[{"h", "[", 
              RowBox[{
               RowBox[{"dix", "[", "c", "]"}], ",", 
               RowBox[{"dcx", "[", "c", "]"}], ",", 
               RowBox[{"\[Mu]ix", "[", "c", "]"}]}], "]"}]}], ")"}], "*", 
           "\[Mu]c"}]}], ")"}]}], "  ", ",", " ", 
       RowBox[{
        RowBox[{"h", "[", 
         RowBox[{
          RowBox[{"dix", "[", "c", "]"}], ",", 
          RowBox[{"dcx", "[", "c", "]"}], ",", 
          RowBox[{"\[Mu]ix", "[", "c", "]"}]}], "]"}], "\[GreaterEqual]", 
        "   ", 
        RowBox[{"h", "[", 
         RowBox[{
          RowBox[{"diy", "[", "c", "]"}], ",", 
          RowBox[{"dcy", "[", "c", "]"}], ",", 
          RowBox[{"\[Mu]iy", "[", "c", "]"}]}], "]"}]}]}], " ", "}"}], ",", 
     " ", "\[IndentingNewLine]", 
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Rho]", 
          RowBox[{"(", " ", 
           RowBox[{
            RowBox[{"h", "[", 
             RowBox[{
              RowBox[{"diy", "[", "c", "]"}], ",", 
              RowBox[{"dcy", "[", "c", "]"}], ",", 
              RowBox[{"\[Mu]iy", "[", "c", "]"}]}], "  ", "]"}], "-", 
            RowBox[{"h", "[", 
             RowBox[{
              RowBox[{"dix", "[", "c", "]"}], ",", 
              RowBox[{"dcx", "[", "c", "]"}], ",", 
              RowBox[{"\[Mu]ix", "[", "c", "]"}]}], " ", "]"}]}], "  ", 
           ")"}]}], ")"}], "/", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{
               RowBox[{"dix", "[", "c", "]"}], ",", 
               RowBox[{"dcx", "[", "c", "]"}], ",", 
               RowBox[{"\[Mu]ix", "[", "c", "]"}]}], "]"}], "-", 
             RowBox[{"h", "[", 
              RowBox[{
               RowBox[{"diy", "[", "c", "]"}], ",", 
               RowBox[{"dcy", "[", "c", "]"}], ",", 
               RowBox[{"\[Mu]iy", "[", "c", "]"}]}], "]"}]}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Mu]c"}], ")"}]}]}], ")"}]}], ",", "  ", 
       RowBox[{
        RowBox[{"h", "[", 
         RowBox[{
          RowBox[{"dix", "[", "c", "]"}], ",", 
          RowBox[{"dcx", "[", "c", "]"}], ",", 
          RowBox[{"\[Mu]ix", "[", "c", "]"}]}], "]"}], "<", " ", 
        RowBox[{"h", "[", 
         RowBox[{
          RowBox[{"diy", "[", "c", "]"}], ",", 
          RowBox[{"dcy", "[", "c", "]"}], ",", 
          RowBox[{"\[Mu]iy", "[", "c", "]"}]}], "]"}]}]}], " ", "}"}]}], 
    "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.48355578367358*^9, 3.4835558110853205`*^9}, {
  3.483556136347844*^9, 3.48355642484069*^9}, {3.4835564721704226`*^9, 
  3.4835565707602806`*^9}, {3.4835566045866632`*^9, 3.483556613378542*^9}, {
  3.48355704573349*^9, 3.483557084294346*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"cutns", "=", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Rho]", 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"0", ",", "0", ",", 
           RowBox[{"\[Mu]iy", "[", "c", "]"}]}], "  ", "]"}], "-", 
         RowBox[{"h", "[", 
          RowBox[{"0", ",", "0", ",", 
           RowBox[{"\[Mu]ix", "[", "c", "]"}]}], " ", "]"}]}], " ", ")"}]}], 
      ")"}], "/", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", 
           RowBox[{"0", ",", "0", ",", 
            RowBox[{"\[Mu]ix", "[", "c", "]"}]}], "]"}], "-", 
          RowBox[{"h", "[", 
           RowBox[{"0", ",", "0", ",", 
            RowBox[{"\[Mu]iy", "[", "c", "]"}]}], "]"}]}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Mu]c"}], ")"}]}]}], ")"}]}]}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.4835584558004827`*^9, 3.4835584630702095`*^9}, {
  3.4835587216020603`*^9, 3.483558858728771*^9}, {3.483559535542446*^9, 
  3.4835595377336645`*^9}, {3.483559774752364*^9, 3.4835597789037795`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Proof of Proposition 5", "Section",
 CellChangeTimes->{{3.4835590237902756`*^9, 3.4835590264465413`*^9}, 
   3.4835620874446106`*^9}],

Cell[TextData[StyleBox["Suppose the mean of the distribution of incumbent \
types is normally distributed with mean 0:",
 FontSlant->"Italic"]], "Text",
 CellChangeTimes->{{3.5119127207527122`*^9, 3.5119127472413607`*^9}}],

Cell["\<\
Case of no salience (\[Alpha]=0).  Char equilibrium cutpoint of incumbent's \
strategy, when donations are not allowed and allowed respetively, as well as \
interest group influence.\
\>", "Text",
 CellChangeTimes->{{3.5119125382484636`*^9, 3.5119125946431026`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", "=", "10"}], ",", 
     RowBox[{"\[Mu]c", "=", ".5"}], ",", " ", 
     RowBox[{"ki", "=", ".5"}], ",", 
     RowBox[{"kc", "=", ".5"}], ",", 
     RowBox[{"tg", "=", "10"}], ",", 
     RowBox[{"m", "=", "0"}], ",", 
     RowBox[{"v", "=", "1"}], ",", 
     RowBox[{"\[Alpha]", "=", "0"}]}], "}"}], ",", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"FindRoot", "[", 
      RowBox[{
       RowBox[{"cutns", "\[Equal]", "c"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", ".1"}], "}"}]}], "]"}], ",", 
     RowBox[{"FindRoot", "[", 
      RowBox[{
       RowBox[{"cut", "\[Equal]", "c"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", ".1"}], "}"}]}], "]"}], ",", " ", 
     RowBox[{
      RowBox[{"CDF", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"m", ",", "v"}], "]"}], ",", 
        RowBox[{"c", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{"cutns", "\[Equal]", "c"}], ",", 
           RowBox[{"{", 
            RowBox[{"c", ",", ".1"}], "}"}]}], "]"}]}]}], "]"}], "-", " ", 
      RowBox[{"CDF", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"m", ",", "v"}], "]"}], ",", 
        RowBox[{"c", "/.", " ", 
         RowBox[{"FindRoot", "[", "  ", 
          RowBox[{
           RowBox[{"cut", "\[Equal]", "c"}], ",", 
           RowBox[{"{", 
            RowBox[{"c", ",", ".1"}], "}"}]}], "]"}]}]}], "]"}]}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4835621252203875`*^9, 3.4835621515410194`*^9}, {
  3.483562183967262*^9, 3.483562227640629*^9}, {3.48356227595646*^9, 
  3.4835623821040735`*^9}, {3.483562435842447*^9, 3.483562436954558*^9}, {
  3.483993439878193*^9, 3.483993440230193*^9}, {3.483993592397193*^9, 
  3.4839935952211933`*^9}, {3.483993628468193*^9, 3.4839936294031935`*^9}, {
  3.4839938661821933`*^9, 3.483993866326193*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GreaterEqual", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(-0.8115900453681311`\\)\
\\) - \\(\\(0.5981474778187421`\\\\ \[ImaginaryI]\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" attempted.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/nord\\\", ButtonNote -> \
\\\"GreaterEqual::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.483562218403705*^9, 3.483562230192884*^9}, {
   3.4835623606729307`*^9, 3.4835624010779705`*^9}, 3.483562438702733*^9, 
   3.4839934478461933`*^9, 3.4839935982661934`*^9, 3.4839936318861933`*^9, 
   3.4839938687681932`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GreaterEqual", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(0.25111831040373195` \
\[InvisibleSpace]\\)\\) - \\(\\(0.603551621947688`\\\\ \
\[ImaginaryI]\\)\\)\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
attempted.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/nord\\\", \
ButtonNote -> \\\"GreaterEqual::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.483562218403705*^9, 3.483562230192884*^9}, {
   3.4835623606729307`*^9, 3.4835624010779705`*^9}, 3.483562438702733*^9, 
   3.4839934478461933`*^9, 3.4839935982661934`*^9, 3.4839936318861933`*^9, 
   3.4839938687711935`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GreaterEqual", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(0.` \
\[InvisibleSpace]\\)\\) - \\(\\(0.291966170521287`\\\\ \
\[ImaginaryI]\\)\\)\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
attempted.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/nord\\\", \
ButtonNote -> \\\"GreaterEqual::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.483562218403705*^9, 3.483562230192884*^9}, {
   3.4835623606729307`*^9, 3.4835624010779705`*^9}, 3.483562438702733*^9, 
   3.4839934478461933`*^9, 3.4839935982661934`*^9, 3.4839936318861933`*^9, 
   3.4839938687731934`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(GreaterEqual :: \
\\\"nord\\\"\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will \
be suppressed during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.483562218403705*^9, 3.483562230192884*^9}, {
   3.4835623606729307`*^9, 3.4835624010779705`*^9}, 3.483562438702733*^9, 
   3.4839934478461933`*^9, 3.4839935982661934`*^9, 3.4839936318861933`*^9, 
   3.483993868775193*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Less", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(-0.8115900453681311`\\)\
\\) - \\(\\(0.5981474778187421`\\\\ \[ImaginaryI]\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" attempted.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/nord\\\", ButtonNote -> \
\\\"Less::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.483562218403705*^9, 3.483562230192884*^9}, {
   3.4835623606729307`*^9, 3.4835624010779705`*^9}, 3.483562438702733*^9, 
   3.4839934478461933`*^9, 3.4839935982661934`*^9, 3.4839936318861933`*^9, 
   3.483993868777193*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Less", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(-1.`\\)\\) - \
\\(\\(0.34250543417909124`\\\\ \[ImaginaryI]\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" attempted.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/nord\\\", ButtonNote -> \
\\\"Less::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.483562218403705*^9, 3.483562230192884*^9}, {
   3.4835623606729307`*^9, 3.4835624010779705`*^9}, 3.483562438702733*^9, 
   3.4839934478461933`*^9, 3.4839935982661934`*^9, 3.4839936318861933`*^9, 
   3.4839938687781935`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Less", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(0.25111831040373195` \
\[InvisibleSpace]\\)\\) - \\(\\(0.603551621947688`\\\\ \
\[ImaginaryI]\\)\\)\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
attempted.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/nord\\\", \
ButtonNote -> \\\"Less::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.483562218403705*^9, 3.483562230192884*^9}, {
   3.4835623606729307`*^9, 3.4835624010779705`*^9}, 3.483562438702733*^9, 
   3.4839934478461933`*^9, 3.4839935982661934`*^9, 3.4839936318861933`*^9, 
   3.4839938687801933`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Less :: \\\"nord\\\"\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will be suppressed \
during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.483562218403705*^9, 3.483562230192884*^9}, {
   3.4835623606729307`*^9, 3.4835624010779705`*^9}, 3.483562438702733*^9, 
   3.4839934478461933`*^9, 3.4839935982661934`*^9, 3.4839936318861933`*^9, 
   3.483993868782193*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{"-", "2.0236694694541786`"}]}], "}"}], ",", 
   "0.47849791403072295`"}], "}"}]], "Output",
 CellChangeTimes->{{3.4835621401448803`*^9, 3.483562152724138*^9}, 
   3.4835621858294477`*^9, {3.4835622184207067`*^9, 3.4835622302088857`*^9}, {
   3.483562361150978*^9, 3.4835624015500183`*^9}, 3.483562439167779*^9, 
   3.483993448296193*^9, 3.4839935987021933`*^9, 3.4839936323201933`*^9, 
   3.483993869206193*^9}]
}, Open  ]],

Cell["\<\
Case of positive salience (\[Alpha]=.2)...\
\>", "Text",
 CellChangeTimes->{{3.5119126053951774`*^9, 3.5119126152351613`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", "=", "10"}], ",", 
     RowBox[{"\[Mu]c", "=", ".5"}], ",", " ", 
     RowBox[{"ki", "=", ".5"}], ",", 
     RowBox[{"kc", "=", ".5"}], ",", 
     RowBox[{"tg", "=", "10"}], ",", 
     RowBox[{"m", "=", "0"}], ",", 
     RowBox[{"v", "=", "1"}], ",", 
     RowBox[{"\[Alpha]", "=", ".2"}]}], "}"}], ",", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"FindRoot", "[", 
      RowBox[{
       RowBox[{"cutns", "\[Equal]", "c"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", ".1"}], "}"}]}], "]"}], ",", 
     RowBox[{"FindRoot", "[", 
      RowBox[{
       RowBox[{"cut", "\[Equal]", "c"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", ".1"}], "}"}]}], "]"}], ",", " ", 
     RowBox[{
      RowBox[{"CDF", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"m", ",", "v"}], "]"}], ",", 
        RowBox[{"c", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{"cutns", "\[Equal]", "c"}], ",", 
           RowBox[{"{", 
            RowBox[{"c", ",", ".1"}], "}"}]}], "]"}]}]}], "]"}], "-", " ", 
      RowBox[{"CDF", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"m", ",", "v"}], "]"}], ",", 
        RowBox[{"c", "/.", " ", 
         RowBox[{"FindRoot", "[", "  ", 
          RowBox[{
           RowBox[{"cut", "\[Equal]", "c"}], ",", 
           RowBox[{"{", 
            RowBox[{"c", ",", ".1"}], "}"}]}], "]"}]}]}], "]"}]}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4835624752683887`*^9, 3.483562554119273*^9}, {
  3.483572214559221*^9, 3.483572214725237*^9}, {3.483993442982193*^9, 
  3.483993443381193*^9}, {3.4839936043401933`*^9, 3.483993613244193*^9}, {
  3.483993872558193*^9, 3.4839938727731934`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GreaterEqual", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(-0.664708545492987`\\)\\\
) - \\(\\(0.4679986128753294`\\\\ \[ImaginaryI]\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" attempted.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/nord\\\", ButtonNote -> \
\\\"GreaterEqual::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.483562482022064*^9, {3.483562512730135*^9, 3.483562559527814*^9}, 
   3.4835722199447594`*^9, 3.483993456164193*^9, 3.483993619084193*^9, 
   3.4839938782681932`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GreaterEqual", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(-0.7742831978469904`\\)\
\\) - \\(\\(0.3063461733950112`\\\\ \[ImaginaryI]\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" attempted.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/nord\\\", ButtonNote -> \
\\\"GreaterEqual::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.483562482022064*^9, {3.483562512730135*^9, 3.483562559527814*^9}, 
   3.4835722199447594`*^9, 3.483993456164193*^9, 3.483993619084193*^9, 
   3.4839938782711935`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GreaterEqual", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(0.029972797528817846` \
\[InvisibleSpace]\\)\\) - \\(\\(0.4809043098191004`\\\\ \
\[ImaginaryI]\\)\\)\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
attempted.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/nord\\\", \
ButtonNote -> \\\"GreaterEqual::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.483562482022064*^9, {3.483562512730135*^9, 3.483562559527814*^9}, 
   3.4835722199447594`*^9, 3.483993456164193*^9, 3.483993619084193*^9, 
   3.4839938782731934`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(GreaterEqual :: \
\\\"nord\\\"\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will \
be suppressed during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.483562482022064*^9, {3.483562512730135*^9, 3.483562559527814*^9}, 
   3.4835722199447594`*^9, 3.483993456164193*^9, 3.483993619084193*^9, 
   3.483993878275193*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Less", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(-0.7742831978469904`\\)\
\\) - \\(\\(0.3063461733950112`\\\\ \[ImaginaryI]\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" attempted.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/nord\\\", ButtonNote -> \
\\\"Less::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.483562482022064*^9, {3.483562512730135*^9, 3.483562559527814*^9}, 
   3.4835722199447594`*^9, 3.483993456164193*^9, 3.483993619084193*^9, 
   3.483993878276193*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Less", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(-0.664708545492987`\\)\\\
) - \\(\\(0.4679986128753294`\\\\ \[ImaginaryI]\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" attempted.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/nord\\\", ButtonNote -> \
\\\"Less::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.483562482022064*^9, {3.483562512730135*^9, 3.483562559527814*^9}, 
   3.4835722199447594`*^9, 3.483993456164193*^9, 3.483993619084193*^9, 
   3.4839938782781935`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Less", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(-0.13697014989454`\\)\\)\
 - \\(\\(0.2611424817663572`\\\\ \[ImaginaryI]\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" attempted.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/nord\\\", ButtonNote -> \
\\\"Less::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.483562482022064*^9, {3.483562512730135*^9, 3.483562559527814*^9}, 
   3.4835722199447594`*^9, 3.483993456164193*^9, 3.483993619084193*^9, 
   3.4839938782801933`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Less :: \\\"nord\\\"\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will be suppressed \
during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.483562482022064*^9, {3.483562512730135*^9, 3.483562559527814*^9}, 
   3.4835722199447594`*^9, 3.483993456164193*^9, 3.483993619084193*^9, 
   3.483993878282193*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", "0.5886542170955729`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{"-", "0.31193206483983305`"}]}], "}"}], ",", 
   "0.34440729542619114`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.483562486037466*^9, {3.4835625165655184`*^9, 3.483562563535215*^9}, 
   3.4835722234071054`*^9, 3.483993459718193*^9, 3.483993622694193*^9, 
   3.4839938818441935`*^9}]
}, Open  ]],

Cell[TextData[StyleBox["Suppose the mean of the distribution of incumbent \
types is normally distributed with mean 1:",
 FontSlant->"Italic"]], "Text",
 CellChangeTimes->{{3.5119127581144476`*^9, 3.5119127611297493`*^9}}],

Cell["\<\
Case of no salience (\[Alpha]=0). Char equilibrium cutpoint of incumbent's \
strategy, when donations are not allowed and allowed respetively, as well as \
interest group influence.\
\>", "Text",
 CellChangeTimes->{{3.5119126660052376`*^9, 3.5119126933269696`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", "=", "10"}], ",", 
     RowBox[{"\[Mu]c", "=", ".5"}], ",", " ", 
     RowBox[{"ki", "=", ".5"}], ",", 
     RowBox[{"kc", "=", ".5"}], ",", 
     RowBox[{"tg", "=", "10"}], ",", 
     RowBox[{"m", "=", "1"}], ",", 
     RowBox[{"v", "=", "1"}], ",", 
     RowBox[{"\[Alpha]", "=", "0"}]}], "}"}], ",", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"FindRoot", "[", 
      RowBox[{
       RowBox[{"cutns", "\[Equal]", "c"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", ".5"}], "}"}]}], "]"}], ",", 
     RowBox[{"FindRoot", "[", 
      RowBox[{
       RowBox[{"cut", "\[Equal]", "c"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", 
         RowBox[{"-", ".1"}]}], "}"}]}], "]"}], ",", " ", 
     RowBox[{
      RowBox[{"CDF", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"m", ",", "v"}], "]"}], ",", 
        RowBox[{"c", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{"cutns", "\[Equal]", "c"}], ",", 
           RowBox[{"{", 
            RowBox[{"c", ",", ".5"}], "}"}]}], "]"}]}]}], "]"}], "-", " ", 
      RowBox[{"CDF", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"m", ",", "v"}], "]"}], ",", 
        RowBox[{"c", "/.", " ", 
         RowBox[{"FindRoot", "[", "  ", 
          RowBox[{
           RowBox[{"cut", "\[Equal]", "c"}], ",", 
           RowBox[{"{", 
            RowBox[{"c", ",", 
             RowBox[{"-", ".1"}]}], "}"}]}], "]"}]}]}], "]"}]}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4835626110659676`*^9, 3.483562653756236*^9}, {
  3.4835629720100584`*^9, 3.483562988122669*^9}, {3.4835630425091076`*^9, 
  3.483563052957152*^9}, {3.4835631292807837`*^9, 3.4835631301678724`*^9}, {
  3.483563175258381*^9, 3.4835631840912642`*^9}, {3.4835632172445793`*^9, 
  3.483563217692624*^9}, {3.4835632681186657`*^9, 3.4835633007759314`*^9}, {
  3.483563363595213*^9, 3.483563373787232*^9}, {3.4835634379506474`*^9, 
  3.483563438133666*^9}, {3.4835634968085327`*^9, 3.483563498320684*^9}, {
  3.4835635291217637`*^9, 3.4835635297528267`*^9}, {3.483563634318282*^9, 
  3.4835636379506454`*^9}, {3.483563697169567*^9, 3.483563713961246*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GreaterEqual", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(-0.7266863386974284`\\)\
\\) - \\(\\(0.6027838902170407`\\\\ \[ImaginaryI]\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" attempted.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/nord\\\", ButtonNote -> \
\\\"GreaterEqual::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.4835637163084803`*^9, 3.4835637393207817`*^9}, 
   3.483567302534067*^9, 3.4839939904451933`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GreaterEqual", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(0.2104804426560922` \
\[InvisibleSpace]\\)\\) - \\(\\(0.6013377357861545`\\\\ \
\[ImaginaryI]\\)\\)\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
attempted.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/nord\\\", \
ButtonNote -> \\\"GreaterEqual::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.4835637163084803`*^9, 3.4835637393207817`*^9}, 
   3.483567302534067*^9, 3.4839939904481936`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GreaterEqual", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(0.` \
\[InvisibleSpace]\\)\\) - \\(\\(0.3249898267394427`\\\\ \
\[ImaginaryI]\\)\\)\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
attempted.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/nord\\\", \
ButtonNote -> \\\"GreaterEqual::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.4835637163084803`*^9, 3.4835637393207817`*^9}, 
   3.483567302534067*^9, 3.483993990449193*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(GreaterEqual :: \
\\\"nord\\\"\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will \
be suppressed during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.4835637163084803`*^9, 3.4835637393207817`*^9}, 
   3.483567302534067*^9, 3.483993990451193*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Less", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(-0.7266863386974284`\\)\
\\) - \\(\\(0.6027838902170407`\\\\ \[ImaginaryI]\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" attempted.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/nord\\\", ButtonNote -> \
\\\"Less::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.4835637163084803`*^9, 3.4835637393207817`*^9}, 
   3.483567302534067*^9, 3.483993990453193*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Less", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(-1.`\\)\\) - \
\\(\\(0.2732905061512499`\\\\ \[ImaginaryI]\\)\\)\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
attempted.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/nord\\\", \
ButtonNote -> \\\"Less::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.4835637163084803`*^9, 3.4835637393207817`*^9}, 
   3.483567302534067*^9, 3.4839939904551935`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Less", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(0.2104804426560922` \
\[InvisibleSpace]\\)\\) - \\(\\(0.6013377357861545`\\\\ \
\[ImaginaryI]\\)\\)\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
attempted.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/nord\\\", \
ButtonNote -> \\\"Less::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.4835637163084803`*^9, 3.4835637393207817`*^9}, 
   3.483567302534067*^9, 3.4839939904571934`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Less :: \\\"nord\\\"\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will be suppressed \
during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.4835637163084803`*^9, 3.4835637393207817`*^9}, 
   3.483567302534067*^9, 3.4839939904581933`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{"-", "3.543914293107462`"}]}], "}"}], ",", 
   "0.15865249297560963`"}], "}"}]], "Output",
 CellChangeTimes->{{3.4835637163974895`*^9, 3.4835637393407836`*^9}, 
   3.4835673031051245`*^9, 3.483993991034193*^9}]
}, Open  ]],

Cell["\<\
Case of no salience (\[Alpha]=.2). Char equilibrium cutpoint of incumbent's \
strategy, when donations are not allowed and allowed respetively, as well as \
interest group influence.\
\>", "Text",
 CellChangeTimes->{{3.511912705848222*^9, 3.5119127100156384`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", "=", "10"}], ",", 
     RowBox[{"\[Mu]c", "=", ".5"}], ",", " ", 
     RowBox[{"ki", "=", ".5"}], ",", 
     RowBox[{"kc", "=", ".5"}], ",", 
     RowBox[{"tg", "=", "10"}], ",", 
     RowBox[{"m", "=", "1"}], ",", 
     RowBox[{"v", "=", "1"}], ",", 
     RowBox[{"\[Alpha]", "=", ".2"}]}], "}"}], ",", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"FindRoot", "[", 
      RowBox[{
       RowBox[{"cutns", "\[Equal]", "c"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", ".5"}], "}"}]}], "]"}], ",", 
     RowBox[{"FindRoot", "[", 
      RowBox[{
       RowBox[{"cut", "\[Equal]", "c"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", ".1"}], "}"}]}], "]"}], ",", " ", 
     RowBox[{
      RowBox[{"CDF", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"m", ",", "v"}], "]"}], ",", 
        RowBox[{"c", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{"cutns", "\[Equal]", "c"}], ",", 
           RowBox[{"{", 
            RowBox[{"c", ",", ".5"}], "}"}]}], "]"}]}]}], "]"}], "-", " ", 
      RowBox[{"CDF", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"m", ",", "v"}], "]"}], ",", 
        RowBox[{"c", "/.", " ", 
         RowBox[{"FindRoot", "[", "  ", 
          RowBox[{
           RowBox[{"cut", "\[Equal]", "c"}], ",", 
           RowBox[{"{", 
            RowBox[{"c", ",", ".1"}], "}"}]}], "]"}]}]}], "]"}]}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4835627026861286`*^9, 3.483562721415001*^9}, {
  3.4835627813139906`*^9, 3.4835628644853067`*^9}, {3.4835629036472225`*^9, 
  3.4835629040792656`*^9}, {3.483562947465604*^9, 3.483562947792637*^9}, {
  3.483563004291286*^9, 3.4835630115160084`*^9}, {3.483563087607617*^9, 
  3.4835631077676325`*^9}, {3.483563145177373*^9, 3.483563165130368*^9}, {
  3.4835632294528*^9, 3.4835632297968345`*^9}, {3.4835633154884024`*^9, 
  3.483563315704424*^9}, {3.4835633547703304`*^9, 3.483563429013754*^9}, {
  3.4835634632151737`*^9, 3.4835635691797695`*^9}, {3.4835636437502255`*^9, 
  3.483563691944044*^9}, {3.48356372430628*^9, 3.4835637265545053`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GreaterEqual", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(-0.6799316943368241`\\)\
\\) - \\(\\(0.4546021521548156`\\\\ \[ImaginaryI]\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" attempted.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/nord\\\", ButtonNote -> \
\\\"GreaterEqual::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.483562730078868*^9, 3.4835627900758667`*^9, 3.4835628213549943`*^9, {
   3.483562852591118*^9, 3.483562873863244*^9}, 3.483562912951153*^9, 
   3.483562956298487*^9, 3.4835630187557325`*^9, {3.4835630958664427`*^9, 
   3.483563118403696*^9}, 3.483563152336089*^9, 3.483563202484103*^9, 
   3.483563238867741*^9, 3.4835633256894226`*^9, {3.483563391722025*^9, 
   3.48356341287014*^9}, {3.4835634526501174`*^9, 3.4835634712749796`*^9}, {
   3.483563514490301*^9, 3.4835635776116123`*^9}, {3.483563649268777*^9, 
   3.4835636755934095`*^9}, 3.483563743684218*^9, 3.483567312815095*^9, 
   3.4839940386951933`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GreaterEqual", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(-0.7567337068608262`\\)\
\\) - \\(\\(0.33242265822107503`\\\\ \[ImaginaryI]\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" attempted.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/nord\\\", ButtonNote -> \
\\\"GreaterEqual::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.483562730078868*^9, 3.4835627900758667`*^9, 3.4835628213549943`*^9, {
   3.483562852591118*^9, 3.483562873863244*^9}, 3.483562912951153*^9, 
   3.483562956298487*^9, 3.4835630187557325`*^9, {3.4835630958664427`*^9, 
   3.483563118403696*^9}, 3.483563152336089*^9, 3.483563202484103*^9, 
   3.483563238867741*^9, 3.4835633256894226`*^9, {3.483563391722025*^9, 
   3.48356341287014*^9}, {3.4835634526501174`*^9, 3.4835634712749796`*^9}, {
   3.483563514490301*^9, 3.4835635776116123`*^9}, {3.483563649268777*^9, 
   3.4835636755934095`*^9}, 3.483563743684218*^9, 3.483567312815095*^9, 
   3.4839940386981936`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GreaterEqual", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(0.015503110883544863` \
\[InvisibleSpace]\\)\\) - \\(\\(0.47842265440604337`\\\\ \
\[ImaginaryI]\\)\\)\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
attempted.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/nord\\\", \
ButtonNote -> \\\"GreaterEqual::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.483562730078868*^9, 3.4835627900758667`*^9, 3.4835628213549943`*^9, {
   3.483562852591118*^9, 3.483562873863244*^9}, 3.483562912951153*^9, 
   3.483562956298487*^9, 3.4835630187557325`*^9, {3.4835630958664427`*^9, 
   3.483563118403696*^9}, 3.483563152336089*^9, 3.483563202484103*^9, 
   3.483563238867741*^9, 3.4835633256894226`*^9, {3.483563391722025*^9, 
   3.48356341287014*^9}, {3.4835634526501174`*^9, 3.4835634712749796`*^9}, {
   3.483563514490301*^9, 3.4835635776116123`*^9}, {3.483563649268777*^9, 
   3.4835636755934095`*^9}, 3.483563743684218*^9, 3.483567312815095*^9, 
   3.4839940387001934`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(GreaterEqual :: \
\\\"nord\\\"\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will \
be suppressed during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.483562730078868*^9, 3.4835627900758667`*^9, 3.4835628213549943`*^9, {
   3.483562852591118*^9, 3.483562873863244*^9}, 3.483562912951153*^9, 
   3.483562956298487*^9, 3.4835630187557325`*^9, {3.4835630958664427`*^9, 
   3.483563118403696*^9}, 3.483563152336089*^9, 3.483563202484103*^9, 
   3.483563238867741*^9, 3.4835633256894226`*^9, {3.483563391722025*^9, 
   3.48356341287014*^9}, {3.4835634526501174`*^9, 3.4835634712749796`*^9}, {
   3.483563514490301*^9, 3.4835635776116123`*^9}, {3.483563649268777*^9, 
   3.4835636755934095`*^9}, 3.483563743684218*^9, 3.483567312815095*^9, 
   3.4839940387021933`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Less", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(-0.7567337068608262`\\)\
\\) - \\(\\(0.33242265822107503`\\\\ \[ImaginaryI]\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" attempted.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/nord\\\", ButtonNote -> \
\\\"Less::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.483562730078868*^9, 3.4835627900758667`*^9, 3.4835628213549943`*^9, {
   3.483562852591118*^9, 3.483562873863244*^9}, 3.483562912951153*^9, 
   3.483562956298487*^9, 3.4835630187557325`*^9, {3.4835630958664427`*^9, 
   3.483563118403696*^9}, 3.483563152336089*^9, 3.483563202484103*^9, 
   3.483563238867741*^9, 3.4835633256894226`*^9, {3.483563391722025*^9, 
   3.48356341287014*^9}, {3.4835634526501174`*^9, 3.4835634712749796`*^9}, {
   3.483563514490301*^9, 3.4835635776116123`*^9}, {3.483563649268777*^9, 
   3.4835636755934095`*^9}, 3.483563743684218*^9, 3.483567312815095*^9, 
   3.483994038704193*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Less", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(-0.6799316943368241`\\)\
\\) - \\(\\(0.4546021521548156`\\\\ \[ImaginaryI]\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" attempted.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/nord\\\", ButtonNote -> \
\\\"Less::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.483562730078868*^9, 3.4835627900758667`*^9, 3.4835628213549943`*^9, {
   3.483562852591118*^9, 3.483562873863244*^9}, 3.483562912951153*^9, 
   3.483562956298487*^9, 3.4835630187557325`*^9, {3.4835630958664427`*^9, 
   3.483563118403696*^9}, 3.483563152336089*^9, 3.483563202484103*^9, 
   3.483563238867741*^9, 3.4835633256894226`*^9, {3.483563391722025*^9, 
   3.48356341287014*^9}, {3.4835634526501174`*^9, 3.4835634712749796`*^9}, {
   3.483563514490301*^9, 3.4835635776116123`*^9}, {3.483563649268777*^9, 
   3.4835636755934095`*^9}, 3.483563743684218*^9, 3.483567312815095*^9, 
   3.4839940387051935`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Less", "::", "\<\"nord\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Invalid comparison with \
\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(-0.1346890030591952`\\)\
\\) - \\(\\(0.2744272558504137`\\\\ \[ImaginaryI]\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" attempted.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/nord\\\", ButtonNote -> \
\\\"Less::nord\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.483562730078868*^9, 3.4835627900758667`*^9, 3.4835628213549943`*^9, {
   3.483562852591118*^9, 3.483562873863244*^9}, 3.483562912951153*^9, 
   3.483562956298487*^9, 3.4835630187557325`*^9, {3.4835630958664427`*^9, 
   3.483563118403696*^9}, 3.483563152336089*^9, 3.483563202484103*^9, 
   3.483563238867741*^9, 3.4835633256894226`*^9, {3.483563391722025*^9, 
   3.48356341287014*^9}, {3.4835634526501174`*^9, 3.4835634712749796`*^9}, {
   3.483563514490301*^9, 3.4835635776116123`*^9}, {3.483563649268777*^9, 
   3.4835636755934095`*^9}, 3.483563743684218*^9, 3.483567312815095*^9, 
   3.4839940387071934`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Less :: \\\"nord\\\"\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will be suppressed \
during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.483562730078868*^9, 3.4835627900758667`*^9, 3.4835628213549943`*^9, {
   3.483562852591118*^9, 3.483562873863244*^9}, 3.483562912951153*^9, 
   3.483562956298487*^9, 3.4835630187557325`*^9, {3.4835630958664427`*^9, 
   3.483563118403696*^9}, 3.483563152336089*^9, 3.483563202484103*^9, 
   3.483563238867741*^9, 3.4835633256894226`*^9, {3.483563391722025*^9, 
   3.48356341287014*^9}, {3.4835634526501174`*^9, 3.4835634712749796`*^9}, {
   3.483563514490301*^9, 3.4835635776116123`*^9}, {3.483563649268777*^9, 
   3.4835636755934095`*^9}, 3.483563743684218*^9, 3.483567312815095*^9, 
   3.483994038709193*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", "0.4149113613238954`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{"-", "0.6822991769503212`"}]}], "}"}], ",", 
   "0.23298863856318397`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.4835627361264725`*^9, 3.483562795998459*^9, 3.4835628274296017`*^9, {
   3.483562857529611*^9, 3.4835628799028482`*^9}, 3.4835629191137695`*^9, 
   3.4835629622440815`*^9, 3.483563024664323*^9, {3.483563101934049*^9, 
   3.483563124312287*^9}, 3.4835631574446*^9, 3.4835632083746924`*^9, 
   3.483563244815336*^9, 3.4835633318690405`*^9, {3.4835633979746504`*^9, 
   3.4835634188507376`*^9}, {3.483563458635716*^9, 3.483563477226575*^9}, {
   3.4835635192637777`*^9, 3.483563583549206*^9}, 3.483563651142965*^9, 
   3.4835636816630163`*^9, 3.48356374370422*^9, 3.483567318101624*^9, 
   3.4839940441721935`*^9}]
}, Open  ]],

Cell["Graphically representiving the above:", "Text",
 CellChangeTimes->{{3.5119127811227484`*^9, 3.5119127855471907`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"a", "=", 
   RowBox[{"Block", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Rho]", "=", "10"}], ",", 
       RowBox[{"\[Mu]c", "=", ".5"}], ",", " ", 
       RowBox[{"ki", "=", ".5"}], ",", 
       RowBox[{"kc", "=", ".5"}], ",", 
       RowBox[{"tg", "=", "10"}], ",", 
       RowBox[{"m", "=", "1"}], ",", 
       RowBox[{"v", "=", "1"}], ",", 
       RowBox[{"\[Alpha]", "=", "0"}]}], "}"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"PDF", "[", 
          RowBox[{
           RowBox[{"NormalDistribution", "[", 
            RowBox[{"m", ",", "v"}], "]"}], ",", "x"}], "]"}], ",", 
         RowBox[{"Piecewise", "[", 
          RowBox[{"{", " ", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", 
              RowBox[{"x", "<", 
               RowBox[{"-", "3.54"}]}]}], "}"}], "    ", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"PDF", "[", 
               RowBox[{
                RowBox[{"NormalDistribution", "[", 
                 RowBox[{"m", ",", "v"}], "]"}], ",", "x"}], "]"}], ",", 
              RowBox[{
               RowBox[{"x", ">", 
                RowBox[{"-", "3.54"}]}], " ", "&&", " ", 
               RowBox[{"x", "<", "0"}]}]}], " ", "}"}], " ", ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", " ", 
              RowBox[{"x", ">", "0"}]}], " ", "}"}]}], "}"}], " ", "]"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "4"}], ",", "1"}], "}"}], ",", 
       RowBox[{"Filling", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"2", "\[Rule]", "Axis"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", ".5"}], "}"}]}], ",", " ", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"t", ",", "\"\<\!\(\*SubscriptBox[\(f\), \(i\)]\)(t)\>\""}], 
         "}"}]}], ",", " ", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{"FontSize", "\[Rule]", "16"}], "]"}]}], ",", " ", 
       RowBox[{"Ticks", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "3.54"}], ",", 
              "\"\<\!\(\*SuperscriptBox[\(t\), \
\(*\)]\)\[TildeTilde]-3.54\>\""}], "}"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{
             "0", ",", 
              "\"\<\!\(\*SuperscriptBox[\(t\), \(\[Degree]\)]\)=0\>\""}], 
             "}"}]}], "}"}], "  ", ",", 
          RowBox[{"{", "0", " ", "}"}]}], "}"}]}], " ", ",", 
       RowBox[{"PlotLabel", "\[Rule]", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<(i)  \[Alpha]=0 and \!\(\*SubscriptBox[
StyleBox[\"t\",
FontSlant->\"Italic\"], \"i\"]\)\!\(\*
StyleBox[\"\[Tilde]\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"N\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"(\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"1\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\",\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"1\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\")\",
FontSlant->\"Italic\"]\)\>\"", ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}]}], ",", " ", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Black", ",", 
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<\!\(\*SuperscriptBox[\(\[Chi]\), \(*\)]\)\[TildeTilde].158\
\>\"", ",", 
               RowBox[{"FontSize", "->", "12"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".35"}], ",", ".08"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "}"}], "}"}]}]}], 
      " ", "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4835703243712206`*^9, 3.4835703742302065`*^9}, {
  3.483570662146995*^9, 3.4835707383216114`*^9}, {3.483570832147993*^9, 
  3.483571075373314*^9}, {3.4835712349162664`*^9, 3.483571237524527*^9}, {
  3.4835712792857027`*^9, 3.483571287749549*^9}, {3.483994420062193*^9, 
  3.483994420253193*^9}, {3.4839946632641935`*^9, 3.4839946726161933`*^9}, {
  3.4839949489761934`*^9, 3.483994949375193*^9}, {3.483995059571193*^9, 
  3.483995082914193*^9}, {3.483995129335193*^9, 3.483995317348193*^9}, {
  3.483995363834193*^9, 3.4839954875471935`*^9}, {3.483995521793193*^9, 
  3.483995531993193*^9}, {3.483995568631193*^9, 3.483995569894193*^9}, {
  3.4839958741891932`*^9, 3.483995879868193*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJztmmk4Vd/f/495OsYiQxkyRUiKiPZHQiFDisoQEUUoU4MkIaEoMhQRQtFA
UplqL3OZIuOJVOZ5zDzd7v/12+7r/j64H/yffJ90npzrda219nXOWnt/zlrv
1xGxuWBsR00ikbbRkEj//X69T39ydZUd7f2lu9dxIhd7QeWeQtrDjhpORKvv
0C7F6OwOKvBZsqG30wJNmxfrsA2tZU7J4azogJWv00vFNsy4JNZWqpKMDgbx
Zb8+04N9nBVU+jzBgmLmsjc9053A2lX137VIsqCws3sCc6sXMMkv0hyrh5lR
rgt9GIshHTytPSUpdokJ0V6ePnU0ngMautSG8l4xIh1dhoXlHl7YoVEZcraR
AVkE+XvH8ooCZFG13GJiQHcUEzb9lJMB3+h7P5M06NFocHPPSdfdMFJWXdLk
SIe6mT0lug5hwEaXc8wriRb9bqjLGU7SAvNQ3SKlChp0M2N88c4NQ6CE7hkc
H6dG4pst7mKBpsCSUIsLSFEjgUvPXK1FrcBhdqPrKSMqFDbyMtK40w6uWdN9
5QwkoRpt/8D0UmdwE9flzDdZxTM/Yv3f7niAkZfSst6zZVxd7JuKSuc1iB69
pIFzL+EzbhtOXzXzg93T3GBjs4A/7wzVe+MZBCoCTFG9VXN4a8oxT9fn9yBx
Z7qt/b5ZfLuNVutD+Uiw/v5sgDt0Gq9sme84Rx0Lt5MXPqfNT+HzbLuU3xkk
At3yC6uzmpO4wjdOf7b4FOg9yHxBNGYcL7lP6vryPB0sz1zNvMk6ine9Gh8s
k8qEBMu4MYH0QdwhQIyriOEtZEbZdV7x6cNNJOeq5HLeQ8Dr4PJq225c7zDD
5dzCfGAaduTzpfuNM3vr0PHG4FBQ179vuKgNl+rqTb2gVQylXJckYiYa8eDg
qthFqTJoSXnWHyZVg79eiJd6x/AZVJ5V6lRlIlw9U2Ou508ltHRy7tiu9gjX
MywUClGshbv2lfbnp7JBS9+7zjqpDiQ5cjndpSrAoGUu4/X+b7CYc8Qk4/A3
CMVdeI9+aQDN7kuF3OGtkH0j02+PYBPIVopoF1v8hNu9orS655tBjQ975/G9
E8aFm0b0LrfAYydO0/CZHuhrdREJMWiFw3GSQQamA6C32V1v81IryN6JYtDx
HgZj59v4rDUFpuL3fFldHYPtSo27tIIoEOlhrecbx46YW5Z0sBYcO7HLcohc
yYbcXV8PrmpXYncTAr9azrKigdg7mhG3mrBsffn+HllWJFlkwRe38TcW9KO9
es6SjD6NbdwwqzaEVfO9n/56lwUFUhmrxoZOY37UhTbn85nR23kLoBomQU9V
aVz4byaUZRx08GIqM6hS9JnGOJmQNu7SRG+5Eage0BRw7GdEhXnRMg6/BWHP
fE/WjAsD8tgsuqiwVxKsnx5q25BGj/rGN+UIrsiDktzr+oJmOmT24+BK1KAy
+Nipk7fR06HdiR5uvYIasFtnNeTEblrUc7WCb1pUF2JZi5o2WNCgKt/T1vva
jWGSm8aEPpQaqWyuqKvzN4P8Slfej4VUqInzuOLyNRuY3M4qrDxEQj84bhxZ
CXWAWJWm85d5SUgyNWefor8r/DZUZ/D3WcHrbW4rj8xeBvec5ie3Opbws2fl
sVkaX+hxLUccaou4TSc/U96eW6AUxO4oFjOPY7mLpjfb74CTxEnvNNo5fPxG
yr2BnnAgBT6XwOxm8JzYoK8Rk9HggR05earkD3546vVDGal4KDc8upFBaAoH
XWNtY4tkuLTV/GyZ8wSeUZm26Q3DM5C6ITnsqPkbslxVRRdnmmG4+Bmd/7lu
WCrrs9s50AJ//DePXUjrg3ldKvB91QpqDzoq9AYGYU+hQIC4EgXuR9qfE8NG
QVHfQ8zJhwKMci2CqIYdNS5v43klX4j58fdXBJLYUYQxa9MITwX2marPV1Wa
DTX16sp6CjVgnVzXpEutWJFdeev0rhsdmHOdKi9nJBl9E7ZJaRPvx0qDBrkP
4yzouWq4aILhFLbjCe1dkQlmFIivVkYIr2CBlbMmhzYxI+4GvpBdzQwwdtT0
IZMmEwq+2vpHwZ4LHFWFj9pdZkReHQn2dB8F4O2W1i2ZSWv1E7M238EpDnVS
4pTqFnrUkRVmvm1aDsw7E1pfk+nRm+8nv2Q8UIL3UfT9Psp0iHrKbIISrg4i
zygXBhxpkXr7zp31Xw6CV80tvdRwGiTy4ea9yH1HoPdI/JPFT9RIs0BdeoPb
CbDZLew0PEmFBLiZvcznrOE1Z/ihqi1U6LuzYUP1s7PArO8cr2lIQnQ7tihE
SlyEjL1adwUHV/BdmVxTcwqXwCYmsLZfYxnf6/OJa7H7OmBZCVT9zxfx0m3Y
s4cf/eHdp4hjJUvzuFGpQu7S5hD4JvwmSPvcHO7wSrxKsfk+1LVt0zKun8EN
epLuKwZFgeNdb5G926bx8H12ivZ340BiPm3U9O4Uzhz17pm+YRJ8uudvy0OZ
wAVtxdlzq1JBWOExg/3VXyApNVF9I7sZNo66/biW1AXL9fYXSt+0wKG56GTf
2l5gCLj+k9a3FTQ30WyrERoEPvFCRCVAgQ72lQ9KliMALZrSW90oIFwwcFnd
gR3xmg3Spc0VYXKHv7E9eMCGeKuCi407azAjVQlB31JWdKbwoGjv7lbML6gn
lWGJjGg+/HRkE+rCkgev3/wlSUY2Oz49aXg7ijVm3Gw6asaCmu4t6lxnnsMa
7dxV3vkzoxS68S9jK9SgWRP++/sLJnTAuu3+7lJWuH1Ky6vxJyNieuz9eGMg
Dzwc7N1ayMyIrOpdtSxlRaCgceoApsaA0jxYFHtjpGB8s9MPMw96pMGh8ARP
UQAur4+VnxPp0D7lwb2ZXqqgreglX99AiwIeLCBy7QE4NCSWVrFMg8Ti3Qsc
cw5Dvv6SlZ8EDZJTvB6OJRyDFco5Zk5zauR/W5RC+8kCuE6XlIYGUqFhcbmB
R4JnQEk7eDYll4QqguMTBqLPw9HDXh7HSlZxa9JJlqJ5N+C1U/Xr41rBu0NL
fBzar0JAvYTrVq8lvEH9seRJiZtQGtMuG7KjB4bpbX96bWmFRPZkVSuffvhq
GvWwu7kVdrPnn63MHoIDXjN81/QpoMH3lZdLaAwkSeKRtbcoUBwSwfirlx1t
PhAo0RqQj/GEyb4vEWBH1aWmYyZPyzD7XTEnMw6wIdawbGlfum+Yl2ei3tsr
rChPnjV5ubYd+6UztG9LJhnd7s6q4C/oxdQRrURIKws6V3quwUx7EgsceZ7o
TWZBgmH6us2OS1izDudbUQVmNFLi6csaQg864d9/8lgyoeLwgTAtb05IuCf3
5F4EI5r5IDtw6BA/TOw4coylgAHZCnlObWIXA0bnDSfSx+mR3iWqYLUQWXBR
22TxXJIeTSyF/dntrQjfXg2YZByhQxofVmlevwbgbdbu3BlIizSZai83ZWqD
o+w5epeXNMiaHG+W62UEvy4Mas60UCMe0ViFB5ePg5LDLDctGzXq6E1XDdxv
DXdpG9o37qFCiTFF9LxF9lBsqqL0wpGEtFxVD5NoLgBbVoXBsNAqHsRTxFVh
7gmUoA47fs9lPFDykvmrn97g+JU5+ejPRbzgwn0lVSZ/+HOy8UvEjgW8k132
irV2MNAL/gjjiZ3DxTeJ/Aw6eh9y6R2OWTDM4udn1K/wf48Eu10RdM/NpnG2
oatlm8piobmmrm2leApXSryQe7UmEWzKY35/YpvEt9PA6U8KqRB3xzSqa8Mv
2BWw03DvvWZ47n9CZ25fF9x/KMPdH9kCbgrHloJsemE1W6Cj7GwrHDrJ3cpa
MADynk9t6ckUCKz58hMfHgaNjD2e2xwp8H1T6mlrP3ZEvZpf7TeIsBJ80/LX
12yofDnnhwd9NTbq1Dwz+oMVHedVfRDd0IzxDzFXzGxkRUK2pTy1XJ0Y9xnZ
Z8MaZNSwLD1WNjSMGXXG9YS7syD5jnHDqpIZbHvOJgOOJ8yI5uCRdMVRKog8
/AJ7X86E3u0QumQrTYbfcV+Kfs8xokPJV+JXHLmhGpt26RVnROOKorpeOsIw
3+vkFWvCgLBTFUd32GyDbdZmFntC6VGa3iW7n9U7QaxR0aC4gA7F3Z5Xkt++
F2z0LROWhmlRccZOe9ZJDcD4I3g5+GiRsVRujYidHmS86uDX20+Dqn85XU/P
PQpzs+8yWTyo0dzmj3Vv4syhNyrWJTWJClkab6zV1bGFjSpVd0brSSiU+VHK
YqgjlFpxpYksrOKfB/Rviam6gff3j5rvDq3g2jyv2AR7r8BSsQ/jsZdL+PL9
8MnlCF84IVv8iL66G5yPO9EV0rRCpY5V1FmufmCjn8t+X9wKykeqN7EYDAGT
r0mVrgYFBppj1eNej4IA7Wpyvh8FRtKSKTo9bOjN7rJwk+TPmHrT+OW7AYPA
Vvw4gyxFgT3GCvdf1YxATt3Mh64rFJCvefYheNMwtA/cEH93nAKx5jQTQffG
wJe179az22v1WuXi8oUpdmR8ncQmnZuH/TpoJGsjxY6WhgYeMk2WYkqHx8pO
G7EhIaa8VAefeqxcYle79C1WxP+hS/rOahv2iL7E6GkhGQ20ahWfZ+3FVto4
5aR6WNCiIPUrSvkE9mbjorQ0PwtqH94p0vdwEfNhSjgdDszoYTs5yHOQDmYy
H/vHOzChV3vPdHuwcEJunmKZWCIjSrmbwtEVyQcceaEX8ioYEPWrrfXOEaKQ
EhYSs2mZHs1rmC+mfpeByw4NW8QV6VFPNgSrTe+GXyptZPVTdGgjHen04DwG
D5yvCzQ/oEXYBwE9e0ltsLGk2H7Lo0FKbq5x2puNoH3lfox7NzXa4Omk/XnZ
FBJpugbvCVCjzYqyGj71VrCwPJWWd4AKJajLKxYY2UOC+RO/U1dIiOtHVYy1
jQugQUb5hr2reHosKap/0gMib4bs3BW2jAfTc6ksWnkD6ae6W/DCIn4x54SA
1Bs/iJT0DFg4tIBbNXzR1/8RBImbp8JXsufwrVlO6pc23AeZzUwWp7fO4tV2
hp0VAZHQSR8/2+E+jQfv/nhX1jYW5HLtvhl3TOEH9PW03ocmQs7vJOEHUpM4
1aejbdf7UiD74tlczeKfkBcbpXX8ejO4GejdUCJ3Qf7x6s87A1vg9lcFqVCZ
XpBuzbM9aN4Kul6C8q+D1upBizXXDloKmL3MdA/IGYYnkTq97+3W7qdyP9Px
sLXzQAp4KDkgLOzqXg+XQjak0c347qBoFfbxlpxt2iAr4qY2sVCVbsbsH8cf
dxFhRZzVkQYr4b8x41zBW0NHyEj5lx4n/cIQxrbyfETelwWNuDNfypSYwUzb
HFo/vmRGm6TqokzPU4EaWXlEtJEJ9bLZHD1lxwJh+XfsztExIe8zodvOdW6E
3nNLkdd2MSLy6JPhyx+EgPdietQhGwY0tvHAjF+1JJTerI9LfUSPPjdd/259
ZifIUk2ywxc6JLLxtz5HsApcpBiYRMzTIh9zNb4ztzUg783nIzkStOhAxLHo
umJdSP5heCXTgAY5ShnEHNU5CtOBFtTBvtRIXV3Z+QqbORjJBx7YmUmFvglG
sT//bQP+CsMmDzpIaHE0ireL7Aifdl8QKmUmIUx0ytmswxXkuFfFH9uu4JqG
jD10Llcgt0C60alsCff8kvV2QtcXts7lfNWM7QaKZQHp/kwL/OzdV3y+vQ92
86lbqeW2wl63pgsvBIZA+C35jakaBQrf+TZaXRqFqPM3Xub7UiDXusyof5IN
XTwIjOGUCkxjZv6rjPEgVFcFnRLfSgHmnbxiblEjwFGZQ5/hSQGF0Sx26Z4h
4J5/tfjemAIuewcC9I+PAb5Nz60zkALZo116i2IjUBqte+CwCwV45nJeNveO
gnP8henzARQ44354qZ9uFDK19wh/vUaBcu8tlqUVYxCj3FKxZe38aMDxc/bD
PDvqmt9Dw34sDytP+X1upzw76n3rWXQxrhRLOCHg/dGUDYl6UJ7rqdVjTje8
U+zvsKKmofbEoUdt2Ey3nJl9CRn9qvu61TW3B+tw4M2+MsSCjg4mdRwPmsC0
t4mNk0RYEFb3XYJfYREzduhWPqTNjKw1BNzVHtPBYfx6068LTMhukmcXeyMH
lBuonBhLY0S19/4IdqrxQeLy9usctQwIv9l0QNpEFNyEtD8Y0DAg0yvitToB
MrB0441Plyo9crpdFDSQvRt6V4/2h5yhQ1o5I8fHEzEwyuNVfh5Li0hzNIV6
3Vpwajo8IgDRoHYOt8vhbYZgpt2tnj1IjRTsndoKikyhue5Ek8lWalRYNL2P
2ssKsr1oyWRdKlQv96vlEJ89kE9926Z8g4T2nRt+u22DC/AFpSdqH1rFY3uM
WcVxD5i8bh2Dxy7j03qeD9uFvaGq19xMjHEJ1w6ZVUm95QdnwspOvzZZwB9I
b0k3Sg+CYQGfB274HJ45mD97te8e9EpQfnbtmMUT65p575pFQtLF5ItevtO4
XdlEeppCLJjJZtUsDU3h3fvPBW9xSQSLMQn1ZaVJfP9XakGZ4hS4GK95w//e
T+i9vKHbxKMZWt5qxppMdYL2pi/lpT4twCWYDPc4eyHfmjFq/FgrVDGLWvhc
GIBcjxk+WRIFSuOSP9o/HIbOYiWa07YUsI+fMFKOYkd93yy+TkshzL25KnNf
CRvK6U+01M2pxMQizPioJ1hRyXaVu8YtTRh5ulcoQ5IVsXkqBv4y/o1tX71Y
onicjExjTN5bpQ1hI3cyXX0DWVDzn+PRqZRpbHg0Ij7yLTMyPykrobadCjic
fEq/f2dC7qWf7MtpWaD7i9OHFyxM6IXTiaUjTzbCn+VVSe29jGgig1JfqicE
z3MOPn1yjgEtQPydcT9JiOAKLWh/Qo+S8U9jc/I7IXtT3cXlr3So5bbvMysV
Fbj8pEL+xyotuq026fnLWAMuLdu6BMrSopBrYzun3XQhwZPx2WkTGhS+JV7m
JtdR8KjNfFERSI3G1erZGz6bwa3lRdnZd1Qo46iQTORrG9ibuZTf001Cptds
i6RrHEBmT3JZPCcJUfleSXiQ5QpB2U+i2V1X8DtFiCNf4Qrw5JL2ztcv4Xdq
GzyMJX3htuXrQdub3UDvaUTqG2sBR8VXrc5FfZBeJ+rfm90KBdTf465RD8Fe
Dr58LRUKSKS6C2qYjcLVHHuV+BsUiP9oevfDPBvi8IuU8LlcgZUEriwuKQ8C
d3kcT5wgBTyEWVyOXR0BN7mBtjF3Crz1eae6UDUEYf4uuLARBVql2mt3qI7B
rtIFc5u1erK5oznqB+MIOAvW82g6UcC379lMbuUo5FGXicT7U6DWBrSrBtba
9eaUbL3W9itOHM/SXozBbTnHm8Nr+xPj8tCQ6xGj8KBf6lrpTQrQ6s3sPe8+
BuNRI00Ga+0vGYtt/lCPQRST8GbJtfONRaj0hs6uMRBmKzyhulaPeq/xTLct
saMq9hvSYVvzMOWjGfSPdrGjpEj8bOrFUuzbqZ3Hh06yofMKN0OjBeoxtD0p
KCCMFa2m5Wsmnm3DxBq7OyrKyShapmibQ1gPVpsl4JE4yoISB+P97RwmMM7s
XGMnMRYksyK8R211AVN7dDvlqQ4zUg9l2uHvSQdz2i4+1O5MiCOvbfvjXA44
zFeQdCyDEYVxPHl+mJMP+oUWadTqGZAvOzV9tZIotPaJHnSkZ0Bn0+cdL52U
AeyOcKYG0KMKl1gnpojdMGjDYZp1lg5JHRc9VO2BwQ4re23OBFr0YCdHD22J
FljsH03/UUKDsN1F3BdfGQL/YGhU/Qg1arpsbDv01BQufnhQmStOjc6EvpeL
NrACtry7mKI+FbojyKnxadkONH8OLab4kVDNgwtbvg05Q3nz/AmS4SquXObb
5pzqASLeepV0Sct4w1ut0GtU3pDl6FA7wbaE0004mNBe9IPqImcjRosF3PNQ
3EnPe0EQEXcg8mXZHF7ZxejTX3EPDsgUiaQqzeLWORzOwVqR4CsuLvs5cBqv
mpBK8+GPhfGzJlX1k1P4BXF7U9tTiSB/acAwe98kzjtXVxudmQK1u952br30
E5a3jGvUX2iGEPsiyZ7eTrg4Yt3IdK0FjpdRdDloe6Gxmc4QP9IK5KPibr02
AwAnqEIlVlrhyobHncdD1vbD2fw1cjYUWGaUMrB4yI5ainGXV8wI6w2I1E8t
Z0OZVHdlL1yvxE48vPhnx5+136df0dH6r5swqyQW2s/SrOhzocd48q7fmNmo
xKEYMzISbrFWu+Y6hLV/y971PJgFbRKZ1PF9O419uCJJIn1gRt9bosf8WKhg
IU5EXqljrf6YmltMNTLD/SOW1jVsTGgDp4DMBp+N4PX5puuLfYwoRGSPkROP
EIw380hXnWdAS8Lv9S6fkoT57456c8n06Jq7t4LXpp3wZyskWTTQoSOMAXwd
nCrgRR2QQE1Dh/JDso59U9YAk6dvvMfkaRG9mFrHST1deFx05lP+CRrEE2Rz
W3/WGHa5nST1BVOj9zdikvalmYFwt5KoWR4Vao38JqoSZQPRIwEjbP0kJMDA
ucX/lQPY5hY8ZOYmoYa1A1PLI1fYTTVu8OXyCn7RS7vhAPcV0Hw/5AStS3j5
HI/VY27ftTqz/cqURzcUbkwuCx1ugcz27q7Rt30Q2GjlrJjVCku67W+6pgfB
YUNi4Ic9FGjb7Hxg1+FReP58eSvDWj3icBKSFlpmQ/qctAz0Bysw2q8kLjuZ
QUAbqfTrNlNA6iHtA63zI4BfyXJnWatHf8o/HLHBh4B64Q7lqwEFQpOapoRl
x+Cjmswo/1o9qjepy69dGIbJMPMc5fMU2G2VJJBROAp6hanH5dbqkd935fOF
bSMQcWN+IPUqBXq6mKpj4scg7ZKGV/VavWHAbme6BIzC3j/BjBpr9SiveMzK
wm4Man768QustZ/2Lbjd82cURjD/laq1/RInnZhyQ9MYmNOQGHas1SPR7M50
TGcM3Ped/ZGy9nmu/eHxe5c3BoIZenEMa+2GDUvcXjfHQPGEc8r1tes95945
Oj4xBqNKtB811toJf0X6z4vwVwQT/opgwl8RTPgrgv/6q7/+6v/HXxH3D+Gv
CCb8FcGEvyKY8FcEE/6KYMJfEUz4q/Xx//FXBBP+imDCXxFM+CiC//qof9dH
RXa9zDRqeYuTnB8ej3xQDS/bWJSKDj1aX7/3SWE2kUfQOhP+iWDCPxFM+CSC
//qkf9cn0fAlJbnH5eNvnijrZJdUwVLjFLduVd76+hG+iOC/vuf/9j26Fq7X
zCUycFEvWcqhMzVw2VI/J04rfX3+CL9DMOF3CCZ8DcF/fc2/62vyd8Xx31r+
iPuSZPXFLarAqTdy+y/FYLw1m9/lcEwtlG6x+mRm9X59PQk/Q/Bfv/J/+5X2
z9lK4JmF++r1RbcuVkNaarrkyp/k9fkjfArBPK1BKmTD4HWWd601bySTUYSF
kYiG3jjWJnE9WNnmKX7AGTdpr65Z9ydEf8KfEEz4EIL/+pB/14fw7OdtCX2N
4+537jld21YF9NtdkkOHIvC+Kp0fDva1sK04kss2PWd9PQn/QfD8Q9rYZwZk
VGr5jmpQdvivv/iHv1Bu3jF1UCIbb/xScT6rohq8H2QWn3r0ZH3+CF9B8FCd
n3qy+dX/eR5l01zM+MmIGx2KR0ljWMT+y9S6pWn4YybxT2EPa9b9BNE/ZiRW
TFfqKk53TKdT/nMtWDwzibRXJKPg0m7ue9UjGOEjiP6EjyCY8AsE//UL/65f
6LR9wR98AOEBsd83vmarglF6dK59QzReySgTNa9fC2aRmWpna9+uryfhEwgm
fADBf33A//YBvRYuR6pXsvENn+/VJL6qhsgPlkvsro/X54/I/wmOKr5kUOvh
sM7aZK4rW0TISKIpZ9ek1Bg2avDnk7Hnc1zX8kaJo0/Net5P9H8sN5Gg0eOH
mxs2en3KrIXcW0XxUmpkNEmaa7M0H8GIfJ/or5agnHs98B4+jWPfv/vUgpvG
o6xMHTKqV+imFF0fxkYW03gEORxw50os8Omv2vV8nxhP5PsEE3k9wX/z+n83
rw+jU1XIuIrwxgIZyy9UVdD5p7+K5nkMrrm0/1PR/lpwXy48MmD9P883kc8T
TOTrBP/N1/93vr4vMdSX7fxbPLrWbntsYjUkftn9qL89dn3+iDyd4KDyhboT
Qmbr7LFYseQjRkauHw/qvRodxR43KWxp0U/HY5U2hJx0rVnPz4n+AcwH7MJZ
A3Fe831nbz2thV6Py1vvABmdlMjaYCU6ghF5OdGfa58W2B8Px72rGA4mu9VC
4k5DRU59MtJo5blvcnAYq1CcjXnZ6oZPpz6Uc2ysXc/LifEvWpQv7jD5n/U/
l4q96bt6A/f25U+dLaiF/3wfXN+BX3v/cO16Xk70P1L9RJOpt14V6XQdfzZX
C//cz/3z+v+cn39en/g/ywXz/x7fji3QSwmd0W5QPfz/2j+tX/+f4wn+L+tj
jO8=
   "], {{{}, {}, {}, 
     {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
      GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwV1EVsVVEUBdDfFinu7lpsgrs7Ce6eAAPc3Ulw9wEEBrhbS3F390CAAe7u
DJB1B6v7vP1Omqb/tAV6DGo1MDoSiURRxpepHuJiIpFi5OWh55xylcwj78os
som8T3bzFHmI39z2PXrJldwhk/elZHeWc520ut/2spkbM5mD/OKW/iY3uM41
rnKFy1ziIr/Iar8RkzjATy7of5LF3JCJ7OcH5/U/yGxuwAT28Z1z+u9kMtdn
PIl846z+GxnN9RjHXr5yRv+VDOa6jCWBL5zWfyG9uQ5jiOczp/QlZTeWcY00
fi+f9enMtRnNHj5xUl9CdmUpV0lt/5M+rbkWo9jNR07oi8suLOEKqex/1Kcx
12Qku/jAcX0x2ZnFXCal/Q/61OYajGAn7zmmj5OdWMQlUth/r09lrs5wdvCO
o/qisiMLuUis/Xf6lOZqDGM7bzmiLyI7sCB8riS3/1afwlyVoWzjDYf1hWV7
5ofPmmT23+hjzVUYwlZeh3vVF5LtmBc+f5Laf61Pbq7MYLbwKtynvqBsy9xw
EySx/0qfzFyJQWzmZbhHfQHZhjnhToix/1Kf1FyR8Ie3iRfhRvX5ZWtmh9sh
2v4LfRJzBQawkefs0+eTrZgV7oko+8/1Meby9GcDz0jU55UtmRnuiYj9Z/po
czn6sZ6n7NXnkS2YEe6Jf+GdPkqWpS/reEKCPrdszvRwT/wN78I/FlmGPqzl
MfH6XLIZ08I98Se80/+jtLk3a3jEHl1PuYLbZPSz55SruUdWz03lA3KY/wMJ
nqL+
        "]]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1FWYkFUUBdCR7u4euru7O4duREVEAVHptosw6FQ6lTAJFbAlBASUsDBA
wCAVFNd5WPPvs+GDh7shcfDIpBF3JCQkbPIjvoP8yM1h+QW6U41HdXW4Im9j
LMm4U5eHI/KL9GCxuyuZ2O+uzmNyXa7K2xlHcgbr8nJUfome1OBxXT2uyW8w
nhTcpcvHV/LL9KImT+jqc11+kwmk5G5dfo7Jc+hNLZ7UNeCG/BYTScU9ugIc
l+fSh9o8pWvI3/LbTCI1Q3QFOSHPoy91eFrXiH/kd5hMGu7VFeJreT79qMsz
usbclN9lCmkZqivMN/IC+lOPZ3VNuCXvYCrpuE9XhJPyQgZQn+d0TflX3sk0
0jNMl8gpeREDacDzumb8J+9iOhm4X1eU0/HOsRcaMkPXnNvy7tgLGXlAV4wz
8pLYC42YqWsRg+O92AeZGO4uzrfy0tgHjZmlaxkb5f3YB5mJ8ZbgO3lZ7IMm
zNa1IhkfxD7Iwkh3Sb6Xl8c+aBpb17UmOXtiH2TlQXcpfpBfiX3QLLaua0MK
9sY+yMYod2l+lF+NfdA8tq1rS0r2xT7IzkPuMpyVV8Q+aBHb1rUjFR/GPsjB
w+6y/CSvjH3QMrata09qPop9kJNH3OX4WV4V+6BVbFvXgTR8HPsgF6Pd5flF
Xh37oHVsW9eRtHwS+yA3Y9wV+FVeE/ugDXkYq6/IOXltbIG25GWcvhLn5XXx
7rQjH+P1lflNXh9vTHvyM0FfhQvyhnhPOlCAifqqXJQ3xtvRkYJM0lfjkrwp
3olOFKIwRUikKMUoTglKUorS8Xv8h1XGtyzlKE8FJvtzq/O7vDnelM5UZIq+
Bn/Ir8X70YX5uk6k41P3DCox1V2TP+XX4/1IYoGuM+n5zD2Tykxz1+IveUu8
H0vc3cjMAXdXFspdyMDn7lksk3uQlUPuKkyXa3NZ3hqbl3uRnTHupb7dycLB
2KxvH3LG3+le5JtERlbRjy/i34Jvb3KwhgHM1i/37ck6srGa/mzgy9i4b1/W
k4u1DGRjvLVf/x8x2bzQ
       "]]}, 
     {Hue[0.9060679774997897, 0.6, 0.6], 
      LineBox[{429, 734, 672, 614, 559, 509, 479, 430, 431, 432, 433, 735, 
       673, 615, 560, 510, 480, 764, 702, 796}], LineBox[CompressedData["
1:eJwV0kVM13EcBuA/oGJ3N3Yd7O7Wze7e1IPd3W5290GnB7sbuwVBBBOnUw8q
dnccjOd3eHhfXj5sf9g3qv/IjiPCQqFQRV/mhIdC+SJCoYeyDbn1+3IT+cnu
+2S5ngEc9juP5WYGUYl/tif80c8zl7YU4EjwM7mFwVQmxFP7X3mBebSjIEft
T+VWhlCFMFLs/+RF5tOeQkTbU+Q2hlKVcJ4Ff6DPfklfQAcKc8z+TG5nGNWI
4Lk9zP1lfSEdKcJx+3O5g+FUJxUv7OHuY/RFdKIoJ+wv5E5GUIPUvLRHuI/V
F9OZKE7aX8pdjKQmaXhlT+X+ir6ELhTjlP2V3M0oahHJa3tq93H6UrpSnNP2
13IPo6lNWt7Y07iP15fRjRKcsb+RexlDHdLx1h7p/qq+nO6U5Kz9rdzHWOqS
nnf2tO4T9BX0oBTn7O/kfsZRjwy8t6dzf01fSU9KB+/J/l4eYDz1ycgHe3r3
ifoqelEmeE/2D/IgE2hAJj7aM7hP0lfTm7LBe7J/lIeYSEMy88me0f11fQ19
KMcl+yd5mEk0Iguf7Znc39DX0pfyXLZ/lkeYTGOy8sUewxf9KFNoQja+2mP5
qkczlaZk55v9Ct/0Y0yjGTn4bo/ju36c6TQnJz/s8fwI3igzaEEuftqv8jN4
j8ykJbn5ZU/gGokkcZ0b3OQWt7nDr+B9MotW5OG3PbP/y019Hf2oEHxe2125
gYEku/sdvFdmk9fPH8jWwWfU78lCcqPMLx/JwvI/E6iipQ==
       "]], 
      LineBox[{785, 723, 665, 610, 506, 783, 721, 663, 608, 557, 469, 762, 
       700, 642, 587, 536, 507, 470, 471, 472, 473, 474, 475, 476, 477, 763, 
       701, 643, 588, 537, 508, 784, 722, 664, 609, 558, 788, 726, 668, 613, 
       791, 729, 671, 795, 733, 799, 478}]}, 
     {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{802, 805, 801}], 
      LineBox[{804, 806, 803}]}}, {{}, {}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(i\\)]\\)(t)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  Epilog->{{
     GrayLevel[0], 
     InsetBox[
      FormBox[
       StyleBox[
       "\"\\!\\(\\*SuperscriptBox[\\(\[Chi]\\), \
\\(*\\)]\\)\[TildeTilde].158\"", FontSize -> 12, StripOnInput -> False], 
       TraditionalForm], {-0.35, 0.08}, {0, 0}]}},
  LabelStyle->Directive[FontSize -> 16],
  Method->{"AxesInFront" -> True},
  PlotLabel->FormBox[
    StyleBox[
    "\"(i)  \[Alpha]=0 and \\!\\(\\*SubscriptBox[\\n \
StyleBox[\\\"t\\\",\\nFontSlant->\\\"Italic\\\"], \
\\\"i\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"\[Tilde]\\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\\!\\(\\*\\nStyleBox[\\\"N\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\
\\nStyleBox[\\\"(\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\
\"1\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"1\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\"", FontSize -> 16, StripOnInput -> False], TraditionalForm],
  PlotRange->{{-4, 1}, {0, 0.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic},
  Ticks->{{{-3.54, 
      FormBox[
      "\"\\!\\(\\*SuperscriptBox[\\(t\\), \\(*\\)]\\)\[TildeTilde]-3.54\"", 
       TraditionalForm]}, {0, 
      FormBox[
      "\"\\!\\(\\*SuperscriptBox[\\(t\\), \\(\[Degree]\\)]\\)=0\"", 
       TraditionalForm]}}, {{0, 
      FormBox["0", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{{3.4839954343301935`*^9, 3.483995488645193*^9}, {
   3.4839955246011934`*^9, 3.483995534760193*^9}, 3.483995572418193*^9, {
   3.483995875817193*^9, 3.4839958810961933`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"b", "=", 
   RowBox[{"Block", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Rho]", "=", "10"}], ",", 
       RowBox[{"\[Mu]c", "=", ".5"}], ",", " ", 
       RowBox[{"ki", "=", ".5"}], ",", 
       RowBox[{"kc", "=", ".5"}], ",", 
       RowBox[{"tg", "=", "10"}], ",", 
       RowBox[{"m", "=", "1"}], ",", 
       RowBox[{"v", "=", "1"}], ",", 
       RowBox[{"\[Alpha]", "=", ".2"}]}], "}"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"PDF", "[", 
          RowBox[{
           RowBox[{"NormalDistribution", "[", 
            RowBox[{"m", ",", "v"}], "]"}], ",", "x"}], "]"}], ",", 
         RowBox[{"Piecewise", "[", 
          RowBox[{"{", " ", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", 
              RowBox[{"x", "<", 
               RowBox[{"-", ".682"}]}]}], "}"}], "    ", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"PDF", "[", 
               RowBox[{
                RowBox[{"NormalDistribution", "[", 
                 RowBox[{"m", ",", "v"}], "]"}], ",", "x"}], "]"}], ",", 
              RowBox[{
               RowBox[{"x", ">", 
                RowBox[{"-", ".682"}]}], " ", "&&", " ", 
               RowBox[{"x", "<", ".415"}]}]}], " ", "}"}], " ", ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", " ", 
              RowBox[{"x", ">", ".415"}]}], " ", "}"}]}], "}"}], " ", "]"}]}],
         "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "4"}], ",", "1"}], "}"}], ",", 
       RowBox[{"Filling", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"2", "\[Rule]", "Axis"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", ".5"}], "}"}]}], ",", " ", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"t", ",", "\"\<\!\(\*SubscriptBox[\(f\), \(i\)]\)(t)\>\""}], 
         "}"}]}], ",", " ", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{"FontSize", "\[Rule]", "16"}], "]"}]}], ",", " ", 
       RowBox[{"Ticks", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", ".682"}], ",", 
              "\"\<\!\(\*SuperscriptBox[\(t\), \
\(*\)]\)\[TildeTilde]-.682\>\""}], "}"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{
             ".415", ",", 
              "\"\<\!\(\*SuperscriptBox[\(t\), \
\(\[Degree]\)]\)\[TildeTilde].415\>\""}], "}"}]}], "}"}], "  ", ",", "None"}],
          "}"}]}], " ", ",", 
       RowBox[{"PlotLabel", "\[Rule]", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<(ii)  \[Alpha]=.2 and \!\(\*SubscriptBox[
StyleBox[\"t\",
FontSlant->\"Italic\"], \"i\"]\)\!\(\*
StyleBox[\"\[Tilde]\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"N\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"(\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"1\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\",\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"1\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\")\",
FontSlant->\"Italic\"]\)\>\"", ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}]}], ",", " ", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Black", ",", 
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<\!\(\*SuperscriptBox[\(\[Chi]\), \(*\)]\)\[TildeTilde].233\
\>\"", ",", 
               RowBox[{"FontSize", "->", "12"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".35"}], ",", ".08"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "}"}], "}"}]}]}], 
      " ", "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4835703243712206`*^9, 3.4835703742302065`*^9}, {
   3.483570662146995*^9, 3.4835707383216114`*^9}, {3.483570832147993*^9, 
   3.483571075373314*^9}, {3.4835712349162664`*^9, 3.483571237524527*^9}, {
   3.4835712792857027`*^9, 3.483571287749549*^9}, {3.483994420062193*^9, 
   3.483994420253193*^9}, {3.4839946632641935`*^9, 3.4839946726161933`*^9}, {
   3.483994720349193*^9, 3.483994808736193*^9}, {3.4839949563991933`*^9, 
   3.483994956895193*^9}, {3.4839955865471935`*^9, 3.4839955886431932`*^9}, {
   3.4839956460901933`*^9, 3.483995715006193*^9}, {3.4839957633001933`*^9, 
   3.4839957931291933`*^9}, {3.483995832576193*^9, 3.4839958366391935`*^9}, {
   3.483995883973193*^9, 3.483995884428193*^9}, 3.483996140046193*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJzVmfk7Vd0b8I95HotIGTJFFIqI9u0RylQiKhQRRchcSTIllGSsSCFTeoqk
MtVeZChTZg4i8zxnnl7f93p3ruv5D97zg3N9rrXX7ex77XOfte6PkOV1A2tK
Eol0YfPP/97vDOrNbGywoSO/tY/YTedibyhck0mH2VDDuRjVA5olGI31cTne
C6zowxxf066VWmxba6l9UjgLOmbuY/+vfDtm8C3WSqKCGR0P4s1+d7kf+7LA
r/B9mgk9WczekaY9jXUo631sEWdCj64cDsytWsbEf0iyb+gyolxH2kdMp2jg
Vc1FcREPBkR9Y+6iYTw7NPSqjOa9pUda2nTLa/08cECtIuRKIx0yC/L3iuUR
BsiiaLnHQIceyL/Y0bVfCnxiwroS1WjRRHBz/3nnQzBeWvWtyY4G9TG6i/We
wICVJueMZyI16m6ozRlL1ADTUO0ihXIq5JsxtfLg7ikghx4emZqiRKK7zB5i
gcbA9KIG55OgRHweac4WwuZgu7Dd+aI+BXo0/m+UQY813Lag+ckRSELVmv6B
r0scwEVUmyPfaAPP/IIN1T9wA31PhTWdtDVcVaReSannNsRMeKjhXKv4vMu2
S7dM/ODQHBdYWi7j6T2hOu/dg0CJjyF6oHIRb00+4+6cHgYJsq+tbI4u4Pss
NVqfykSBRVvaMFfoHF7RstR5lTIW7ictf09dmsWXWA8qfjyZADRrb8yvqM/g
cvUc/qzxyTBwnPG68JMp/NtjUu+P9Ndw4fKtTF+WCbz37dRIqUQmvLgQN8n3
egS3DRDhLKL7AJnR1j03vQdxI/HFyv05nyDgXXBZlVUfrqNLdyO3MB8Yxux4
fWi6cUYvLRqeJzgU1A4dHStqxyV6B1KuaxRDCaeH2JPpRjw4uDJ2RaIUWpLT
hh5JVOPvluMlPtJ9B6W0Cq3KTISrZqot9v+pgJYejgP7VJ7hOqcKBULka+Ch
TYXNtdls0NDzqrVIrAVx9lwOV4lyONmymPHun3pYyTltlKFbD6G4I4/hjwZQ
7/Mo5Apvhey7mX6H+ZtAukJIs9isC+4PCFNrX2sGFV7so1tbD0wJNo3r3GiB
5/YcxuHz/TDY6igUcrIVdOPEg04aD4POLledXautIP0gmk7LawwMHO7jCxZk
mI0//GNjYxL2KTQe1AgiQ5SbhY5PHBtibFnVwlpw7NzBC6PMFazI1fndyIZm
BfbwReDPCwssaDj2gXrEvSYsW09mqF+aBYkXmfHGbe/Ggn51VC1eYEZfJ7dv
W1AZxap4P839fMiEAikMlGND5zA/ykLLa/mM6MOSGVCMkaC/siQuvJsBZRkE
HXdKYQRlsh7DJAcD0sQdm2gvbAeKSKoC9n/oUWFejJRtNz8cXurPmnekQ267
hFfkjoiDxasT7dtSadHg1I4c/nUZUNj/rq6gmQaZ/Dq+Hj2iCN7Wqsx7aWnQ
oQQ3lwF+NTiktRFy7hA16r9VzjsnrA2xLEVN28yoUKXPJYujHQYww0VlRBtK
iZR2ldfW+ptAfoUzz5dCCtTEcVZ+7bYlzOxjEVQcJaFf7HdPr4faQqxS07Ub
PCQknpJzVN7fGbpPqdL5e6/jdZb3FccXboBrTvPLe52r+JUrMtgClQ/0O5ch
dpUV3LJnJ0Pe4XugEMRmJ/JkCcdyV4x9Ox6Avdh5r1TqRXzqbnLYcH84kALT
xTDreTwnNuhnxEwMuGGnz1/89gfXnX33VEoiHspOGW6nE5jFQdtA08AsCTz2
mF4pdZjGMypSd7ynSwOJu+JjdurdkOWsLLwy3wxjxWk0/lf7YLV00Fp2uAX+
+O+avJ46CEvaFODzthVUIjvLdYZH4HAhX4CoAhkeR9lcFcEmQF7PTcTemwz0
+1v4UTUbalzby/1WphDz2zlUHkhiQxEGLE3j3OXYd4pBH2VJVtQ0oC3tLtCA
9XDeliwxZ0HWZa1zB+92Yg61yjwcUcyoXtAyuV10CCsJGuHSxZlQunK48ItT
s9iBl9QPhaYZUSC+UREhuI4FViwYndjBiLgaeEMONtPBpKHxUwZ1BhR8q/WP
nA0n2CkLGlrfoEeenS9saL7wwYfdrbszEzfrJ2ZheoBDFGolRMlVLbSoM+uR
6d65/WDa86L1HTMtet92/kdGpAJ8iqYd8lakQZSzJtPkcFUQSiNfH7ajRqod
srJ1P46DZ/U9nZRwKiT02Tcs6uhpGDgd/3LlKyVSL1CV3OZyDiwPCdqPzVAg
Pi5GT9NFC3jHEX6icjcFanM41VCVdgUY9Rzi1U+REM2B3XJRYk6QcUTjIf/I
On4wk3N2Uc4DLJ8E1gypreFHvL9yrvTdASzrBcVQ+gpeshdLe/rFHz5+jTjz
bXUJ1y+Ry13dFQL1gu+DNK8u4rZvRSvlmx9DbfteDYO6efxkf+Jj+aBosHvo
JXRk7xweftRa3uZhHIgtpU4YP5zFGaM/pumdSoSvYf5W3ORpnN9KlC23MgUE
5Z7T2dz6DeIS01V3s5th+4TLr9uJvbBWZ3O95H0LnFiMSfKpGQC6gDtd1D6t
oL6Dam+1wAjwihYiCj4ydLKtf1a4MA7Qoi65x4UMggXDN1Rt2RCPyQhN6mIR
tl+3njUykhXxVAYXG/RUY/rKYvw+JSzocuFx4YFDrZhfUH8K3SozovrcZccq
0Isljdzx/S3OjCwPfH3Z8GECa8zwbTI0YUJNYStadxgXsUZrV6WP/owomWbq
x+Q6JahXh3e3vWFAxyzaHx8qYYH7FzU8G7voEcNzr+fbA7nh6cjAnkJGemRe
56xxQVoIChpnj2EqdCjVjUl+4IkETO2y/2XiRovU2OVe4slywOn5peJ7Ag06
qjhyJNNTGTTlPWXqGqhRQOQyYq45BidGRVLL16iQSLxrgV2OLuTrrZr7iVGh
/fJ3wrEXZ2CdfJWRw5QS+d8XJlN/NQPOS99KQgMp0Jjo/uFn/JdBQTN4ITmX
hMqD418Mx1wDQ11PtzPfNnAL0nmmoiUX4LFW9hvkXMf7Qr9523bcgoA6Mec9
nqt4g+pz8fNivlDypEM65EA/jNFadXnuboUEtiRlc+8h+Gkc/bSvuRUOseVf
qcgehWOe87y39cigxvuTh1NgEsRJolE198hQHBJB/3uADe06FijWGpCPcT+S
/vSNjw1VlRhPGr0qxWwOPjmfcYwVsTzKlvShqcc83RN0PtxkQXkyLElrNR3Y
b63Ro7szmdH9vqzynQUDmCqiFgtpZUJXS642mGjOYIHj6QlezEyI/5GedrPd
KtasxfFBWI4RjX9z92EJoQWt8LYu7gsMqDh8+JGGFwe8CNv/MiyCHs1/lh4+
cWInTB84fYapgA5ZCbjP7mATAXqHbedeT9EiHQ+KYJUQaXBU2WGWLk6Lplcf
/TnkJQ/1b4eNMk7TILXPG1Tv3gHwNGv2yAZSI3WGmhtNmZpgJ32V1vFfKmTB
HG+S66kPv6+PqM+3UCJu4Vi5yBtnQcF2gYualRJ1DrxWDvzHAh5SN3RsP0yB
Ep4U0fIU2UCxsZLCGzsS0nBW1iVRXQfWrPKTYwIbeBB3EWe5qTuQgzqtd7qv
4YHiHqZvu7zA7idjkmHXCl5w/bGCMoM//Dnf+CPiwDLewyZ900IzGGj5fz3i
jl3ERXcIdQUZPoZcWtszZnQL+LV51Zs726LA+mAETbrJHM46eqt0R2ksNFfX
tq8Xz+IKCddzb1UngGXZk+6vrDP4Piq49FUuBeIeGEf3bvsNBwNkTx0Ja4Z0
/3Nai0d74fFTKa6hqBZwkTuzGmQ5ABvZfJ2lV1rhxHmuVpaCYZBxf2VFy0yG
wOofXfjYGKhlHHbfa0eGth0plyz82BDlRn6V3wjCvuE71n6+Y0Vlazm/3Gir
sAn75vmJXyzoLI9yZExDM7ZzlLF8fjsLErAq4a7h7MG4Lkunjakxo4Y1ycnS
0TFMvyeuP9yVCcl0Tp2q/DaP7cvZcZL9JSOiOn76tfwEBUTpvsE+lTGgjwcE
PKwkmaE77kdR9yI9OpF0M37djguqsDnHAVF6NCUvrO2pJQhLA/aesUZ0CLtY
bnjAci/stTAxOxxKi1J1PKy7qmRBpFH+ZHEBDYq7v6Qgs+8IWOpdeLE6Ro2K
M2RtWGbUANsZwcPOS40MJHKrhax1IONt506df6hQ1W/7O69zDWFx4WMmkxsl
Wtz1pfZ9nCkMRMc6piRSoAsG22u0taxgu1Llg4k6EgplfJa8EmoHJeacqULL
G/j3Yb17Isou4NX2Rf3jiXVck/stK//ATVgt9qY/8+8qvvY4fGYtwgfOSRc/
o63qA4ez9jSFVK1QoWUefYVzCFhpF7M/FbeC4umqHUwnR4HBx6hSW40Mw82x
qnHvJoCPeiMp348M46lJZK1+VvT+UGm4UdJ3TLVp6sbDgBFgLX6ewSxBhsMG
co/fVo9DTu38596bZJCpTvscvGMMOobvin48S4ZYU6rpoLBJ8GEZvJd2f7Ne
KzmtXZ9lQwZ3SKySuXnY7+P60pYSbGh1dPgpw0wJpqA7WXpJnxUJMOSl2HrX
YWViBzsk77GgnZ97JR9stGPPaL/pvypkRsOtGsXXWAaw9XaO/RL9TGiFn/It
uWwae799RVJyJxPqGJMVGny6gnkzvLgUDozoaQdzkPsIDcxnPvePt2VAb49c
7nNj4oDcPPlSkQR6lPwwmb03ihfY80Kv55XTIcq3e+ocIoQh+VHIkx1rtGhJ
zXQlpU0Kbtg27BaVp0X92RCsMncIfiu1M6tepEHbaUiXRpYwiHS4w9ccSY2w
z3w6NuKaYHmBbFWfR4UUXJzjNHfpQ8f64yeufZRom7u95vc1Y0ig6h0J46NE
u+Sl1bzrzGF5bTY17xgFeqEqI1+gbwMvTF/6XbxJQpy/Kp9YWDoCGqGXaTiy
gb+OJUUPzbhBlG+I7MFHa3gwLafSirkXkLpUXYKXV3CnnHN8Eu/9IErcPWD5
xDJu3vBDT+9XECTsmg1fz17E92TZq3psewxSuxjMLu1ZwKusT/WUB0RBD238
QqfrHB586MtDaatY2J9rXW/QOYsf09PR+BSaADndiYKREjM4xVfD9juDyZDt
dCVXvbgL8mKjNc7eaQaXkzp3FZh7If9s1XfZwBa4/1NOIlRqACRb86yOm7aC
tie/zLugzXrQYsF5gJoMJv9mugbkjMHLKK2BT9abz1OZn/HUo83zQDK4Kdgi
7NGtI26OhaxIrY/+43HhSuzLvf1WqSMsiIvSyExZshmzeR5/1lGIBXFURZ1c
D+/GagRp8l30mVH74+nDuhxjGOt6+riMDxMad2X0yBSbx4zbbVu//MuIdkjU
RhtfowAVZsVx4UYGNMBqaXjRmgke5T+wvkrDgLwuh+692rMdBq6uRt0+SI+Y
J16O3fgsADxOr6NPWNKhye3H5v2qxKHEty4u5Rkt+t50p83isixIU8ywwQ8a
JLS9W489WAmcyCeNIpaokbepCu/l+2qQ9/776RwxanQs4kxMbbE2JP06dTPz
JBWykzj5xFDLEOYCzSiDfSiRqqqiw01WU9CXCTwmm0mB6vmj2dK7LcFfbswo
spOEViaieXqZ7eDroesCJYwkhAnPOph0OsN+rg3R51bruPop+n4ax5uQWyDZ
aF+6irv/yPowre0DexZzfqrH9gH5QgHp8XwLdA0cLb7WMQiHeFXNVXJb4YhL
0/U3fKMg+IH5vbEKGQo/+jSae0xA9LW7/+b7kCHXolR/aIYVOR0H+nByOaY2
v/RTymAEqiqDLoruIQOjLI+IS/Q4sFfk0Ga4k0FuIotNsn8UuJbernwyIIPj
keEAvbOTgO/VcekJJEP2RK/Oisg4lMRoH9N1JAP3Ys6/zQMT4BB/fe5aABku
u+quDtFMQKbmYcGft8lQ5rX7Qkn5JDxRbCnfvXl+PMnetfB5iQ31Lh2mYjuT
h5Uld1+VlWFDAx/ci5ziSrAX5/i8vhizImE3crqOSh1mf9cr2eYBC2oa7UgY
fdaOzfftN7H5xox+1/7c45zbj3Xa8mTfHGVChiOJnWeDpjHNvSJTJCEmhNW2
ie2UW8EMbPsUT2gyIgs1PleV5zSgi99p+n2dAVnPcB9ka2SHspNK5yZT6VFN
2B/+HhVeSFjbd4e9hg7hvk3HJI2EwUVA8/NJKjpkfFO0RitAClbvvvfuVaZF
9veLgoazD8HAhuFQyGUapJEzfnYqAQP9PB7F9FhqRFqkKtTp04CLc+ERAYgK
dbC73AhvPwUmmn2q2SOUSM7Gvr2gyBiaa881Ge2hRIVFc0cpPc0h25OamVmb
AtXt/91ygtcGmC/W71W8S0JHr4592LvNEXiDXidontjAY/sNWERxN5i5Y/EE
j13D53Tcn3YIekHlgKmJCP0qrhmyoJRyzw8uPyq99M5oGY+U3P1a/3UQjPF5
R7rgi3jmSP7CrcEwGBAjd/UeWMATapt5HppEQaJTkpOnzxxuXTr9OlUuFkyk
s6pXR2fxvn+uBu92TACzSTHVNYUZ/J+flPxSxcngFK9+1z+sCwZubOszcmuG
lg/qsUazPaC540dZiXcLcPInQRjHAORb0EdPnWmFSkZhM+/rw5DrNs8rTSJD
SVzSF5unY9BTrEB1yYoMNvHT+orRbGiw3uznnATCXJsrM49+Y0U5QwkXtHMq
MJEIE17KaRb0bZ/SQ4OWJox5bkAgQ5wFsbrLB/426Mb2bTh9kz/LjIyfGH0y
Tx3Fxh9kOvsEMqHmP2djUshz2NhERHzUB0Zkel5aTGUfBbDbe5e0tTEg15Kv
NmXUTND3w/7zGyYG9Mb+3Orpl9vhz9qGuOYRejSdQa4r0RGA9Jzjr15epUPL
EP9gyk8cIjhDCzpe0qIk/OvkoowsZO+odVr7SYNa7vukmSspwY2X5TK/NqjR
fZUZ998GauCxZuUYKE2NQm5Pys65aMMLd/q0S0ZUKHx3vJQvpyG41WS+KQ+k
RFMqdWwN303g3tqK9MJHCpRhKCAV9c4SjmSu5vf3kZDxbasiyWpbkDqcVBrP
QUIUPjdfRGY5Q1D2yxg253X8QRFiz5e7Cdy5pCNLdav4g5oGNwNxH7h/4d2I
lW8f0LrrkwYnW8BO/m2rQ9EgvK4V9h/IboUCyra425SjcISdN19DiQxiKa78
aiYTcCvHRin+Lhnivxg//LzEitj9osS8b5Rj3wLXV1YVR4CrLI47jp8MboJM
jmdujYPL/uH2SVcyfPD+qLxcOQqP/B1xQX0ytEp01BxQnoSDJcumlpv1ZFdn
c/Qv+nFw4K/jVrcng89g2nxuxQTkUZYKxfuTocYSNCuHN8d1FhWsPDf3K/bs
aalvJuH+fjvfsc39iUFZaMidiAmIHJK4XeJLBmqd+SPXXCdhKnq86eTm+L/0
xZZ/KCchmkFwl/jm+cYsVHJbT+8kCLIWnlPerEcDt7nn2lfZUCXbXclHe/Iw
RcMM2mcH2VBiFH4lxakEq78oe3b0PCu6JucbGsNXh6F9iUEBj1jQRmq+esKV
dkyksa+zvIwZxUgV7bV91I/VZPG5JUwwoYSReH9r22mMIzvXwF6ECUmtCx5W
2VjGVJ7dT36lxYhUQxkO+LvTwKKmozelKwNiz2vf9zyXHXR5CxLPZNCjR+wv
03U5eGFIYIVKpY4O+bBR0lYpCEProPBxO1o6dOX1kp3HeSnAHghmqgEtKneM
tWeIOAQjluzGWVdokMRZ4RNVbhgcMLfR5HhBjSJl2fupv2mA2T8Tr399o0LY
oSIup7enYOdIaHTdOCVqumFgNfrKGJw+R1bkilKiy6Gf9secNAfWvIeYvB4F
esDPofZ1zRrUu0ZXkv1IqDry+u76UQcoa146Rzq1gSuW+rQ7pLiBkJdOBU3i
Gt7wQSP0NoUXZNnZ1kyzruI007ZG1E5+UFXkoE9vtoy7n4g77x4WBBFxx6L+
LV3EK3rpvYfKw+CYVJFQisICbpHD7hCsEQU+oqLS3wPn8MppiVTvnbEwdcWo
sm5mFr8uamNsdTEBZDyGT2UfncF5FmtrYjKToebgh549Hl2wtntKre56M4TY
FIn3D/SA07hFI8PtFjhbStZmpx6AxmaaU/jpVmA2FHUZsBwGOEcRKrbeCje3
Pe85G7K5H87eWb3fkgxr9BInzZ6yoZZi3PEtI8IGAqL0UspYUSbFQ+nrdyqw
c0+d/hz4s/n79DsmRu9dE2aeyET9XZIFfS90m0o62I2ZTIideGLCjARbLFRu
O49iHfXZB9ODmdAOoRktnw9z2Oeb4iTSZ0bU1hIz6cdEActxQjIKnZv1x9jU
bLaRER6fvmBRzcqAtnHwSW3z3g6e332d3xylRyFCh/XtuQVgqplbsvIaHVoV
/KRz46I4LLXZ6Swm0aLbrl5ynjtk4c8eSDRroEGn6QN4OzmUwJMy4AUlFQ3K
D8k6U6+oBkav3ntNylAjWhGVzvM62vC86PLX/HNUiDvI8r7eggEcdDlPGgym
RJ/uPkk8mmoCgn0KwiZ5FKg1ql5YKdoSYsYDxlmHSIiPjmO3/1tbsMoteMrI
RUINmwemlmfOcIhi6uSPG+u4k6dmwzGum6D+adQeWlfxskVu8+dcPpt1Zt/N
Wbc+KNyeVBo61gKZHX29Ex8GIbDR3EE+qxVWtTve986NgO22hMDPh8nQvsvh
2EHdCUhPX9tDt1mP2O0FJAXWWJEeBzUd7fFyjPonidNaagTQdgq92l1kkHhK
HalxbRzwm1muTJv16E/Z59OW+ChQLj8g/zxJhtDEpllB6Un4oiI1sXOzHtUZ
1ebXLI/BzCPTHMVrZDhknsiXUTgBOoUpZ/dv1iO/NsVrhe3jEHF3aTjlFhn6
exmqnsRPQqqHmmfVZr2hw+5nOgZMwJE/wfRqm/Uor3jS3Mx6Eqq7/HbybY5f
8im43/9nAsYx//XKzf0SB42IYkPTJJhSkegObNYj4eye15jWJLgevfIrefPz
3P7D7fcxbxL4M3Ti6DbHTzWscnn6ToL8OYfkO5vx0rlkJ6amJ2FCgfqL2uY4
4a9I/+9F+CuCCX9FMOGvCCb8FcGEvyKY8FcEE/6KYMJfEUz4K4IJf0Uw4a8I
JvwVwYS/IpjwVwQT/opgwl8RTPgrggl/RTDhrwgm/BXBhL8imPBXBBP+imDC
XxFM+CuCCX9FMOGvCCb8FcGEvyKY8FcEE/6KYMJfEfz/q78iPj/hrwgm/BXB
hL8imPBXBBP+imDCXxGceotkW7Ft+G++dibdaNwz3f+XNfWWr6fm9OCPg/Pa
z+z8Agm6ffS/HZuANuR2usaNRlA8q0sxNt/+Nz7hUwgm/AjBhB8hOGlUT8q1
c+v/98U5tld/HvjL/Wv/xCk97MWlXu9cjRosgBoS34HSXw0Q+dEmh0+oEb7G
d3eS1NtAhN9H19G96W+/nphP9N8JzqD7kCKkNfQ3/ql0n+obkv34n2+xo+ey
8sDl6due5Y1miFGxuZhZ2QjZ7J+FW17/+juf6BcTTPSLCU5I/hNafmzreazg
GbkozLf1PB5q7pehWuzFY0surO49XQB9JgrFh7kaYDBlTcB2rgEo/vlX74Ed
GT66+QkJaTf97V8S84l+JMHp6Dydx7ut+zkkuqpfHdqP02H6Oz9J5UHwzHd3
h8PN8NEKknISG2Hug2/EpdqOv/OJ/hnBG/yzZ2+e2cr/7WVuJ4/dW+trt49G
e095H94+WXErUz7/b7+MGCf6ZQQLUHz/6uyxlQ+VljTBGt2tfJgVf14ZlO7D
g5diRd7TFsAUXQnTdFY93G1iPG7X1QBJERz3atdawVA5KBQONf3t3xDziX4M
weK7pRUFu7fykdabx3kT38wHOcM5aDQXol4a42INTRD40dTuwcNGiKEZ/JFq
tZUPon9AsMuvLF7hwK187NL1SivIavs73jFczFS92Ief/pJcUz2T97dfQIxb
TGpya7aQ4YXUhaft5k1QbIOF7THrx7Pfpi3qO+bBQwv5mOo9W/Hb0t8ryoZs
5ZvoHxBM9A8Ivpgp21IWtpVfj0+Bvq+st/LrlCt4qe1EH54vxtOX3J0PHp0h
WdXe9VAmu/7+UmMDuCqXCLqWt8JbCNVVlWj6e54l5hPnU4JtKmP03Ze38lt7
+bIxxe+terHTY/dlqsQmuGenzznm2whX3j2z1pLeyi9xniL4TWGY5+KLrfsv
LxepVXFvg7Oru6tE7zYB949E+ySOfpzp4/2ie3V5f89PxPUyT5feDyWQYf30
tDaVUROsaOyeWnDrxzXjivvc9fKgDLYvJClvxc84fbmxwXArv8R5imBH6vb3
San9eOD62XgO5jzQffWDiXdwa73DNKM8X7G0wW4DnrnXdk1g6Gssv8iwFZ84
XxFMnK8I9g60sXJ+vrVenGLzsqwuW+vlebAp0tC4D/dxe5It+TMfcrUmKAut
66H7n1yR9poG6AiLd1T/txVQl/2OL8JNf/f7xHxi/05wYFJlhwDdVn29I0cv
ktu3tV4Xun0+Td9vApOYyK/PvBqhltL1w07OrfUi9psEn5DakLR6s3W/xlr0
4QfM22AfTWlmlefm91ORYzcLfz/O99F0chTl/d1fEtc/HavfyPufZ1txdIo8
1QRPPz5MsPTtx+XP8cZwHs0Dy0z/NJYTW/E5U4/uSVHcWi9iv0kwo5u2JcuH
ftxgx+74Hyu5kLOQdH6kcmu9FmMdvrvNkMH8GB+tunUTTE2V9ltyb8Un9p9/
49lFrnWX9uN+VRGfRHtzwehLme/t11vxiP0mwQ6DK6+n6/vxc0/LzrzryoWw
4rm9ZmFtIPEnIHp48/n97/z/xv/v9+e/zz8R//b/vT79b/wvS/8bLwUi3n/n
E/x/ANR4BIo=
   "], {{{}, {}, {}, 
     {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
      GraphicsGroupBox[
       PolygonBox[{{593, 604, 605, 553, 580, 492, 563, 590, 534, 556, 583, 
        505, 522, 544, 571, 472, 497, 510, 527, 549, 576, 483, 491, 504, 521, 
        543, 570, 471, 470, 469, 468, 467, 466, 465, 464, 463, 482, 490, 503, 
        520, 542, 569, 462, 515, 532, 554, 581, 496, 535, 557, 584, 509, 561, 
        588, 526}}]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1FWYkFUUBdCR7u4eukO6u3tg6FAUFVBBlK4BTDqVkJBuWzDADpAyQLEB
AQMlDMKAdR7W/Pts+ODhbkgcMjLp/lsSEhJ2+RHf2/zIz6fyQpKpyQxdff6U
X2QcqbhdV4DP5EX04ml3D7JxyF2LmXID/pJfYjypGaIryOfyYnpTm4d1Dflb
fpkJpOEOXSGOyUvoQx0e0TXiivwKE0nLnbrCHJeX0pe6PKprzFV5N5NIx1Bd
Eb6Qn6Qf9XhM14Rr8h4mk567dEX5Un6K/tTncV1TrsuvMoUM3K0rxgl5GQNo
wBO6Zvwjv8ZUMnKPrjhfycsZSENm6Zrzr/w608jEMF0JvpZXMIhGzNa14D/5
DVLIzHBdIt/IKxlMY+boWvK/vJfpZGGEriTfxjvHXmjCXF0rbsj7Yi9k5V5d
Kb6TV8VeaMo8XesYHG/GPsjGfe7SfC+vjn3QjPm6NrFR3op9kJ0Ybxl+kNfE
PmjOAl1bUvF27IMcjHSX5aS8NvZBi9i6rh2peSf2QU5GuctxSn4m9kHL2Lqu
PWl4N/ZBLh5wl+e0vC72QavYtq4DaXkv9kFuRrsr8KO8PvZB69i2riPpeD/2
QR4edFfkjLwh9kGb2LauE+n5IPZBXh5yV+KsvDH2QdvYtq4zGfgw9kE+xrgr
c07eFPugXWxb14WMfBT7ID9j3VX4Sd4c+6A9BRinr8rP8pbYAh0oyHh9NX6R
t8a705FCTNBX51d5W7wxnSjMRH0Nzsvb4z3pTBEm6W/lN3lHvB1dKMpkfU1+
l3fGO9GVYhSnBIn09J9aSd9SlKYMZSlHeSpQkUpUJtnvr+I7xZ9diwvyrnhX
ulGVqfraXJSfjTekO8t0XcnEfvdcqjHNXYdL8nPxhiSxXNeNzBxwz6M6Ke66
XJafjzdklbsn2Tns7sEKuTtZ+Ng9nzVyL3Jy1F2D6XI9/pBfiN3LfcjNWPdq
32RycCR269uPvPF3ulf6JpGVjQzgYPx78O1LHjYziAX6tb692UouNjGQ7XwS
O/ftzzbysYXB7Ij39us3AVTdvVs=
       "]]}, 
     {Hue[0.9060679774997897, 0.6, 0.6], 
      LineBox[{429, 566, 539, 517, 500, 487, 479, 430, 431, 432, 433, 434, 
       435, 436, 437, 438, 439, 440, 441, 442, 443, 444, 445, 446, 447, 448, 
       449, 450, 451, 452, 453, 454, 455, 456, 457, 458, 459, 460, 567, 540, 
       518, 501, 488, 480, 574, 547, 525, 508, 495, 461, 568, 541, 519, 502, 
       489, 579, 552, 530, 513, 585, 558, 536, 591, 564, 481, 575, 548}], 
      LineBox[{593, 526, 588, 561, 509, 584, 557, 535, 496, 581, 554, 532, 
       515, 462, 569, 542, 520, 503, 490, 482, 463, 464, 465, 466, 467, 468, 
       469, 470, 471, 570, 543, 521, 504, 491, 483, 576, 549, 527, 510, 497, 
       472, 571, 544, 522, 505, 583, 556, 534, 590, 563, 492, 580, 553}], 
      LineBox[{594, 531, 589, 562, 514, 586, 559, 537, 484, 577, 550, 528, 
       511, 498, 473, 572, 545, 523, 506, 493, 485, 474, 475, 476, 477, 573, 
       546, 524, 507, 494, 486, 578, 551, 529, 512, 499, 582, 555, 533, 516, 
       587, 560, 538, 592, 565, 595, 478}]}, 
     {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{600, 602, 599}], 
      LineBox[{601, 603, 598}]}}, {{}, {}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(i\\)]\\)(t)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  Epilog->{{
     GrayLevel[0], 
     InsetBox[
      FormBox[
       StyleBox[
       "\"\\!\\(\\*SuperscriptBox[\\(\[Chi]\\), \
\\(*\\)]\\)\[TildeTilde].233\"", FontSize -> 12, StripOnInput -> False], 
       TraditionalForm], {-0.35, 0.08}, {0, 0}]}},
  LabelStyle->Directive[FontSize -> 16],
  Method->{"AxesInFront" -> True},
  PlotLabel->FormBox[
    StyleBox[
    "\"(ii)  \[Alpha]=.2 and \\!\\(\\*SubscriptBox[\\n \
StyleBox[\\\"t\\\",\\nFontSlant->\\\"Italic\\\"], \
\\\"i\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"\[Tilde]\\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\\!\\(\\*\\nStyleBox[\\\"N\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\
\\nStyleBox[\\\"(\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\
\"1\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"1\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\"", FontSize -> 16, StripOnInput -> False], TraditionalForm],
  PlotRange->{{-4, 1}, {0, 0.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic},
  Ticks->{{{-0.682, 
      FormBox[
      "\"\\!\\(\\*SuperscriptBox[\\(t\\), \\(*\\)]\\)\[TildeTilde]-.682\"", 
       TraditionalForm]}, {0.415, 
      FormBox[
      "\"\\!\\(\\*SuperscriptBox[\\(t\\), \
\\(\[Degree]\\)]\\)\[TildeTilde].415\"", TraditionalForm]}}, None}]], "Output",
 CellChangeTimes->{
  3.483994811026193*^9, 3.483994959196193*^9, 3.4839955898921933`*^9, {
   3.4839957985241933`*^9, 3.483995803668193*^9}, 3.483995837786193*^9, 
   3.483995886551193*^9, 3.483997152696193*^9}]
}, Open  ]],

Cell["Visual of how incresing salience can decrese influence", "Text",
 CellChangeTimes->{{3.483995026913193*^9, 3.483995038288193*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"c", "=", 
   RowBox[{"Block", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Rho]", "=", "10"}], ",", 
       RowBox[{"\[Mu]c", "=", ".5"}], ",", " ", 
       RowBox[{"ki", "=", ".5"}], ",", 
       RowBox[{"kc", "=", ".5"}], ",", 
       RowBox[{"tg", "=", "10"}], ",", 
       RowBox[{"m", "=", "0"}], ",", 
       RowBox[{"v", "=", "1"}], ",", 
       RowBox[{"\[Alpha]", "=", "0"}]}], "}"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"PDF", "[", 
          RowBox[{
           RowBox[{"NormalDistribution", "[", 
            RowBox[{"m", ",", "v"}], "]"}], ",", "x"}], "]"}], ",", 
         RowBox[{"Piecewise", "[", 
          RowBox[{"{", " ", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", 
              RowBox[{"x", "<", 
               RowBox[{"-", "2.02"}]}]}], "}"}], "    ", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"PDF", "[", 
               RowBox[{
                RowBox[{"NormalDistribution", "[", 
                 RowBox[{"m", ",", "v"}], "]"}], ",", "x"}], "]"}], ",", 
              RowBox[{
               RowBox[{"x", ">", 
                RowBox[{"-", "2.02"}]}], " ", "&&", " ", 
               RowBox[{"x", "<", "0"}]}]}], " ", "}"}], " ", ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", " ", 
              RowBox[{"x", ">", "0"}]}], " ", "}"}]}], "}"}], " ", "]"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "4"}], ",", "1"}], "}"}], ",", 
       RowBox[{"Filling", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"2", "\[Rule]", "Axis"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", ".5"}], "}"}]}], ",", " ", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"t", ",", "\"\<\!\(\*SubscriptBox[\(f\), \(i\)]\)(t)\>\""}], 
         "}"}]}], ",", " ", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{"FontSize", "\[Rule]", "16"}], "]"}]}], ",", " ", 
       RowBox[{"Ticks", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "2.02"}], ",", 
              "\"\<\!\(\*SuperscriptBox[\(t\), \
\(*\)]\)\[TildeTilde]-2.02\>\""}], "}"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{
             "0", ",", 
              "\"\<\!\(\*SuperscriptBox[\(t\), \(\[Degree]\)]\)=0\>\""}], 
             "}"}]}], "}"}], "  ", ",", 
          RowBox[{"{", "0", " ", "}"}]}], "}"}]}], " ", ",", 
       RowBox[{"PlotLabel", "\[Rule]", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<(iii)  \[Alpha]=0 and \!\(\*SubscriptBox[
StyleBox[\"t\",
FontSlant->\"Italic\"], \"i\"]\)\!\(\*
StyleBox[\"\[Tilde]\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"N\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"(\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"0\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\",\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"1\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\")\",
FontSlant->\"Italic\"]\)\>\"", ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}]}], ",", " ", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Black", ",", 
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<\!\(\*SuperscriptBox[\(\[Chi]\), \(*\)]\)\[TildeTilde].478\
\>\"", ",", 
               RowBox[{"FontSize", "->", "12"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".35"}], ",", ".08"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "}"}], "}"}]}]}], 
      " ", "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.483630601804878*^9, 3.4836306274358425`*^9}, 
   3.483630660414454*^9, {3.4836308712498055`*^9, 3.483630878706653*^9}, {
   3.4839942820301933`*^9, 3.4839943111721935`*^9}, {3.4839949710941935`*^9, 
   3.4839949715501933`*^9}, {3.4839959417671933`*^9, 
   3.4839959591101933`*^9}, {3.483996144326193*^9, 3.4839962029061933`*^9}, {
   3.4839963752331934`*^9, 3.4839963844881935`*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJzteWk41d3btnGbiaKkREKSoUSELklSKEMkmUNIhsyFUCShTBkyi0whFAq/
ZR6Smb03KoQKkaRB4d33+96/u/foOZ6j58P9/j+9+wPHeay1rrX2tda69jrP
U9DKWc+GhoqKypPy56//fm+1P62tcSC+1NfGiWGCUEDtdp9qPwcqQwKV+WQx
oLc5upfXlB1ZxTBSqXvJwHpSk2NmFBsS132xeVRZCfQaks6JtbMiq6rPcSM7
1KDmK79c6wILGlwrfe2lpQ0jitqPiaIsiG3oIiEh+hSItu1at6bFjASXHJKP
2ppCVqeZ6A5PJmTFWdzUn2UNfW+UZqoeMiJhRTcaQVZHkFJtDzvfz4Bs0vk3
eBi5AZRQE4OZGBAoG4jUDftAwN3brzNUCWj00hkNTfpA+NDU0TDgQI/WgrY8
DHgUAuz05acuZ9Ah4HSfOG0VAWcjjtfJtdCi46+NkkYOxAA5Yv/0x480aEjy
ufORpgRgSe3E+MRo0GWWAAYjjjSw/7rB1UyHGlWxXt3FkZUFVyzouzhDqFDT
1x1i3/fmwiXh45xPDdYw5wKOrbG0RaBzWW5F88EK1iRm0VpiUAp35zxVMe6f
2P0KDt6pscewb4kbrKyWsUqWysUx+aegwMcUN/X8G3YCZey++6wW0vfknbNV
/opp6x9ksWytA4uhB++5I5YwW+lbKkIpjXAjc7k15/siprXVgy3bsQXoVwrM
z6t9wvpYZ8yTktth6iizs1D8R2xu4WihR/8LMLX2KQ5km8MqzzocP3exG1JN
783z5U1jG/xmXWNYeqE4zmbc2/8tdnvroeucAX1wvehmc8e5CeyT1PJOe2I/
MM068AbQj2FsUoI7aXcNwrPud8qzdcOY84ZszzBlIjRyeYrEL/RjRT4N7/xk
SEC8/+BdpNgLrMDK5kL3KAkUHrQfe16MsKcGehVfdMhAHOeUEldKxPSZLCWP
hZAh3Lbd9sJiKYQNx5dbeZJBdF0lp5tYC2SIbrEW5CfDj3Jdg3ytXhjmypL2
DiKB2oRnNXcUCfhZd5YyVRJBol1Qvd7kNdB+cOWovz8ISrwHH7sPjYMS25GG
fs8BSHbkNIz6MgnRtVc5knf3g9Y90dAThu9hes1f3yWvFyRuxTEc850FM4Wb
0xySPbCYsr9tbW0eeNkUGia/dUKsu4VmwD0ONM5ZFz6rKwxGMqYzrO3sSCql
9VRboxSEp4Z0mX5lQ8qckw9bfPZDqbb0u0kJNhR8uOzL03EVCH050vHNlBW9
FCoQmtHXgA7eJ0td4Szou7UsV7KlLgTRVFtdeMqMRjN3XRhKN4LJ5433osaY
UP4zuYjDrpagSNZmmudkQhz2TZ87eeyAOob22bpDjKh16VP9DX8X2P99suSL
EwPiytWIarD2BIssjeH1OQQk2F/+Dsr9QE6yqOfZID3qlKNvVi26Bv42Kqw7
CfQoOr5hvGDoJuw7thZmtI8O7ZbKz908cAeS2OoG1pvQoj2Gp9vGh+LgEzet
ASGCBi0ORGmoN92Dp+2um2qqqZFfoXVGn28G2J4yl/eceoV5V8QLiFYNAnKV
Kq07Q8I2P6/kHcOIkPDJWluqoQcbl0+j0qPsG6OIAu/D2WZsn4z4pqMCZIh9
U1isQyzDrKcmthS4k6FwmEWuTiMRBuxkZY5SzseTjEirWF0ETwwjh0z1ycBe
I/Hq3NgL2Kr/RSaWRIJ0rQnGUacBWGJMrOkTIoH8aS3q2S/DQCORKSYuS4Q7
sbZ2Ow7OQQZ3x6U5g25glCTyoxcc6GeafaqkkRAEbX7XEkLFgYS/RH/oyt8N
rdRvAxR3saMkzpq1vVayMM51ZVejORtSrNANtp44CBe7FTdxxrKiJoWycX5h
dWgMnebWwliQbJTbmUuzJ0EqjS5ccIEZ8bd99ne9bggh7V8NNDYyo7m6qJP3
6CxgXt8wgUmNCbENrgn80LYFB0UBfRsvRjQ/vNPo0UUnKNtK2lqcwYCm5fLe
Lve4Q7eYMLmDSEB6cdceMVVdgbPjqaQiVgIylXQ9z3oyCJ7EEd75y9OjzYKn
4psPhILgA7Lzewc61G15czXI8zZcfhGsmR1Fi/jCLX1nA2NhSjcl7UctDdpR
7BumpZQEVvsEHGc/USOj1tTQ477pwK/5IslUaRRTH0ixeXVpEA4Ksn4bZBvC
ZsZNXvsGEKEo6IPCOeM+7I5inNtOaxK42Hyk4mdpx/jVyvnMaMhAy5uR4Xbv
Kbax0WKAw4YMVP/7YyG//Rph95FQMvzsX+Q+/rwKdEi1n3afJ0PS1CevC8Ht
cL8oM8BzhQSdVHxSTS/7oGR4W8XAKRLUpoy9olIbggMeznSm3kR4xbFaIWf6
AVbZHySr1HeDwLP3Xir2HOiT1FbSoyuiIKnVyx4Tw476Xea8dsTvAR1FEf6A
RjaUNd3A96hOAYJCJ7MZfrKizp/liV2XVCFz2i9wVJQVSfWb6hIeH4f+/MAB
fWMWdGYuQstsWg/6bdwUHl9jRsoTDbHUM8ag9iJqbKiACa0ed3Sm/mEFN8yO
XO5/zYjyts7Qy1A5QML01PZqZkYUIc/BfOeVKzzrXzx8UIkBSdsx3NzH5Q0f
tzi+NHYnIIJh5ci7zqugWq/nWJg9iFnRBrvd/UGEIKsRix/i3Zgsi2Pt5FPK
+Z4K3KPU2YCdefbxnd8BMhw3cb1yViQfC5ZllUVXyeBlql1+70geVJ4R4tMJ
IMOckdDTazUN4Ow9rUylSIa6Y/u2F6V2A/H1kaKIYhKo8nZt4to2Dw466au3
erugPiyacXSKA+2+QJjjddwOPJESTxr4OFCk9tKzUAVxsJWJP5N/mB3x8+Z3
m5/fB5c90jXLvNmQIxJ05glThtFjM8pbi1nR62AXLdttR0AF0YmEkVhQSkJI
AinuBIR8yE33ZWVB75LbR86FGMDgMc4yob3MaFjY31/ikRkcixp6zWPKhPrf
ht2W8rCB1NuSabejGZGTr7mNyf6LsCCle4rlGQO6VI5chLncgfHieqO8jwTk
cLUlGGu+DE5KG01yRQmo9u4538gHgdD78L1Bvi495f1w1tXc7QZsGlQf3xNC
h+Qt3Y2i7SLBQcKO4FRIi77yaJXuHYmBUedptS9EGmRm2VMf458IcvZfuenY
aZBV1L78a1TpEMu3ZWgufRQzWEeUrjsxCD+9l5PG3g5hEdEpBm7mRKhq3yO9
ItyPZR1JWTikRYId9B3uhknPsXHra5+YP5Hgqcy9zcErNZiBfcm56LNkcJyK
FR+VvYnxc3E7Nd8gQ+NW81pj8yewBT2OPutMBosrA2rOxFYY1Ldb0Wcnw4Sx
XP1+7j7g/Hxp7wZHElAfKtS+5UCGiPGSDTkJRAh50fYam52Fh4QlF8Vv3TC0
MdvSIogDcUSkn4uwEIEGbONKVxE7Yi72XYypkIY5x8Evcy/ZkFkyjZV7vDxs
nmFu+bKBDb1NfLj4MOcQcFtLPJhVZUUHi2dW5/2Ogc74vckoNxY0MMrsJ71d
D8TLN55Yl0apZ59dzanRGYjVKjj4pJkJeW+cc7HYawVj99rqxr4xIiO375Mn
Geyh4+CS05Qw5fcqa8tHO3FX+D7leDnJgAEdKPITXCfvBTstjE32RxBQZo67
fESNP1BvPsRRcZWI0fEZpci8IkJEvsDpuK/d2KvZ9cTbOSQ4FWKa7W7ahG3w
0IsgS5BhpLVUDjxKME1125Hmy2TIyc4TXf2cCfNhebnt18igt2LEHs5QDx5S
SzzoKBk0dmpyWtzuAotRU+nYRhK8H0xSuVc0BxUqR1Uzt3VDddOGiMkrrVi+
VTRnKycZtFZzdlopVGDE55MtFy+SgYcUqsB68iaourq4NFH2b1946EWF/TUQ
+01mkWhKhln1nBpaqMeWxLRr9qqTYVjE76a8VRZG6jjke5eyHg3uBRWFu8WQ
ZnzvE/EKpf6dpV0IvT0P5mWE3bU2XSCg4LLivEh5f6/tOsy+LAijR3UkrMQ4
UBTIjnvf2AVyWvNNljrsSMxONZJmTgaaRWRGdgWzoVO8qFFlXAkSCQ06WdWs
6P3+hIT6dDVYHeaUFJtkQXVqZsGh89rwaMOPXbs2s6C92QPFiiwG4M+UahkF
zMhc7+bxrcxm8KU4+VqKPRNS3p7/IJ7FBiqrZJt2pDOi7IpmGst0R1hXFeFc
1cKAkiqGtW6Vu8H9yLD4jSsEtBDI8/yMzmXwsu/bKixLQHc6zR62GATCqMIw
q4oZPUp5JbaEOG9AzEU/vsEYOlQRso41cCICrEzJ53qraNGZ9TPhP8NiYGT1
TrzbBA26farzooVgIqTTvpm+zUeDwn5InvS4kQad1xp89veNYgPGfkyeSoMw
ct91durUMLZ3mjE86QQRauf0xdtv9WO0B/a7/gASrPZXFX2y7MDyI819w96T
gOfQJmJEEYZ9blsPdoZkIIg7ZUbMRGObz56/J0rZz531sVzn8sqh/i0mROdG
uZ9N6uKuVK2g99J8wISHDB8ZGlkWSnrBV745z9KLBJnRnMHdlN+twYpXve65
RDAuLHa7Xj4LQWYM/bvW98D+5iDDj5EcSFy7vaecKAyRPgfcnarZ0bXNdcYV
mtJQEyx5LmeaDW3x1X69nkEebJNTTjsJsiGmMme3ssOHoFOA/uklHVakep7W
Tv+tBrCv5n6QDmBBvPLSR78iXTActifVFDKjm3fTvL5LngElVvkPQv1M6Lnd
U6/JbkuIfHrLxo6eCX1ffbmRIdIOpux+xl6RYUS6XX3pe/tdYJNLXpyGFQOa
MrVuiHrhCY2BPfeyEwnohrPLu7f7/WH0SKVF9SwRE7BZ4NrZRYToTlU9K9Me
zLSRtoEtmQSShpqv1wk3Y2sjLKsSomSQH5RaPCpSigWZ6Cu/9CKDb0xxvVli
GgiI55TtDCbD9S43+Tu760BdvMygTJsMBZeqv1pWdsJ6Cdj9uJME1Y8D+s09
54CmSam8/UA33I2jaQk83IYphdiekWYmQy7LjkmH6Urs21f9Hit7Msx0B6lk
nvUBr/hP24Up74sE6dq6Q4HPIFzPTfyBFRmaeWK/phEasJ/85DOeKmSIPuRF
c7wxB3tu972hK5BSbxXSLk9fLISfBxJKZfzJ4HTg/XXt0/PQxV7KJZrcBWYi
/Ga+WtWYijjzd3cLMsR/SNpxXMwHY65vzvhrPgsfMQc97kpguxwsaH+BDNRe
Fz47hj7ETHeLjp33I0Nk4I8PWltzYLnda4tEEKVeCdnlCX2LhrOF3/lFKOdN
iPXaOlGqdOy+de6JDZT8JHhn0KqZPwKR1rZZJR/K+n23mja2zMOtjrPpelJd
cGLd668V3zlQ/XlpInW9IDTfH7PbI82BBMv4N7NI74JUIz7fGkN2FKbrzaBb
KgOOV33v295iQ6VB3UOZt5Xgy4SksW0DKwook631tlKDV/abSr1nWNACMEgl
pmiD+s4dH6kEWdBHVT6GpM5ToGc/Ia+hzozK+2LpOipMQQvzGxh1ZkKj8b4M
vkRraD6hYDSfw4jCniWpTRs4QvqKuN+6TgbEXcjBqBPiBpe2qVecoGVA7YEb
ZPq5L8PPq4/83ygSkPKAiauFRCBMrem/C7OmR6/XIjQ8xkJAp2qTfG4SHerS
bWyTyooAs6Wo6OuIFj3ibvnWZhUDxuoTKqXTNOhH6XFG6cUEGOw2GjDYToMk
tbMOyWumwez++Lazs6OYpKFB6CGZQeg4IBFnf2sY8/0oZMWrToQ6qsncktp+
TPHrydAGBRJMV5c8R00dGOIwzdo3SYLxcwWbbx5GmM+eWutKCt+YIyC7kfV3
MVrf3tOIwkeMY4uVzneWQV4Fb1E1ha98cbjK/ym2BWa8afKPbiaD56uwkhf+
vRCtodq96EsCN8VGAbcWEpiFOoaol1D48r3MGtuEWdi773B5qkAP2KYs6MjH
caAm9dV851hhcBt8XqzcwI5EHjPk1vBIw45oY16aBTZ0ID9XhhXtB9alqW35
omwohX8s/CvXIRBfc2mQPc2K0gyuVyqkaMCHW8WuASEsaGOFvQt7lC7MzkWn
xJYxo/dK1/Ij3hrBOkf/xqEhJjSkkP2KnG4JE22OFQUsTGjYsPKimJ4dfF5Z
E1U/wIhqf5gJ7c5zgdzyo1lpdgxIyvkR1VKCJ0RzRTwbSSOgkjXBzP4lP+ge
dmMCIRIWfufEz1stRIgb7evSuNODyRcVcVXcJQHfQdWfr0KbscXDw5/qhMgw
ZeKk27Fair38kqaoTeH7sRWmPzlck2Grq+MkRjn/KfKB2lwYAkXta6VROpT7
snFpelyrExJ5OhYL+0ggku3Gr2o8Bzn5M/tMNbrhmt/3NycftGG9hIYbJwhk
MIy2OjxfX4XJrjbqqlL4RVy954lOd3tQqMvepky5r+005JkjOU/hQzwGi9Zk
KFsN2+Dk0ID1TtmnBypT9vvE51o9j1wsQU6Tp4fynnbU9NzYQM6HW9Z9vcco
722S2EinlOI8PL54aatxRRewPjSpphKuwQ5PzGeympEhWXIhVXUyCGNnp/+5
Qrnf0ZpqsYYHKoDZgzH2AuX9YHL9XYmHQjFGLxrqJuBL+f2P6Q0TvnkfbA9T
99JS3gdvb+9uzku7DW0Gp575UcZf5aV6IfUoA2OqZr1mdp0MqdRsetJxJbBt
RuV0NOW9I+247kFOwTxoa9/KDj3eBUqp8pV+IbexsWyzb/6U8aUVAY2DFhnQ
IbiSGkgZry4wWei0GgRhX1qU/1qf3L7lI4fWZ2O7H3xWrKbUpw8/cnj419lj
rZzrzP/KV+NalfMlgbuQK0uXXEs5/5ErLLlKqcmYdHvkywrKfplE7Fo//mYe
RM2J6ls2dMHUFZ6l4Z8caERlSk4hRxDk9fMJiTIcSGdZ27GKbhf0mu05PXOG
HWXOXu58EisDSDwj9HokG6q1fSKXY6sEO/onXrU0syLq6YMccYfVoLOEzz19
jgV9MIh6M+euDZyllXqOO1iQ2BdRseCSU6CUeON+1jFmdHzTgM7HSFP4pu7k
T+PGhJhPvnuXWGMNWrzPMk7lM6JetlKmj9KO8G7bD1qlHgb0sT0y0tDZDUhv
hY46EBgQR8OEbfU3Hzh4S6BYFQgoNG8mU5M3EKat1hmWnKfw60A7AZe2EJAy
t1XnTKVDPh8UnpQHRYDJobm8lw20KOHo0dz2EzGweToirucDDXrRu0TYO5IA
LhUx7ZXCNKgmcvK2kkQaLHMGLnz4NoopkXbEZEkOQiP9rff5OcMYuT8gq+8Q
EepvPnwrROrH8uQfOGXKkWBUevfQg68dmIBvvR7dGxJE0ivuzfdBWMQLttYz
emQY//zuOW1uPEazpRULoeyP20q17nuLMhj4wU4T7UHZrxq+hL3mLeAiOp4v
t4UMlcfmaKptesGsqL+q4ioJRm6nOKkVkuBWldqcWDkRvNcnj58OmwWXUq6c
06I9sMIodsIkgQNp+sj84HYThqnrsdrZzexI1VnTdPmbFBgluHyW+syGuOYf
5/ck7wfzDBa61l1s6HN2lkPbsgoYz4loxBuzoiNiO3f5eGvASG+pTO5NFrQO
Sw5S99GFCm9RKqoKZuSPXVu/tdEIlu8JSsu9YkLBrRlbqG5awh1dU4sX7Ewo
5XDK0IV9dnC5NdC1QJkRPai9+OxFjAt8HOTZ9fwCA4IFmulOf0/4PuSg+S2T
gBZ/yAUs9/tBa06PacBBEqbvef1cZQMR7tons1fn9WDHZcCAEEsCrtIa5uan
zRidJoc5YTsZlNMjAtgvlGGLeoXO/pT8pbftS3w3kgQFPGOh9JT87vrAYKQf
imAzz3W2ZV0yeDhEWQtt7IQoFdfs7YMkGN5y8bCM1hzkEuNWhE92w+UF909y
5DbMSTVhhxEdGQoHAi/tkXqKmam80RO3JcP7bDMHkQdnYNWkQeQw5b69uTBF
1Sr/FMILKmy4KO35lwhCBskN2OrUxvvUSpT6MrB3K1E7D+sWXZ45TqlPl/rH
bIo58iFtw6ZPnZT6FJExsCggMQ9iDTOyi41dcO7jlRnVqBpMn0oQ9ZhQ3l/M
h22i2EKwZTa2vROU+19QrptH6ngCu9P5x22cyBAcHMOwwliCXZJenvWg8JP0
LQfJnFgWMHodU7Cn1KfVsqE1Y69w2KbRF51FGS+RflC8/GYmlqO+2PyT0i7Y
rOojIl0CZ85/499PGT/5hqkjPmUe9F+qXxEy6gIu5SNgezoK+55Yp25AGV+p
MsvVcDcdrkjcEyZS6lN1qMgLKLwKAmAnsZ6Sj4mn8vebZrKxIZpOdQ1KfWqR
/RpfSLqEvZzz85OhtHdzRrFqhseC96S68WfK/kwz37Q+cjIVy93UZmpHqU+c
9Dvk+wbm4XXu1SsVgl2wvCme/vHVWOyEis2XJUp/Pt7XZXQsbsB1z4z/r3h2
2QcfvfW5isnRLzz/a/53sqD+81wUrD9GP61PWe+p+qkFSbNw7AiteMl9Cpb8
KedWIxIC8yt8p95QcOImbLnppRH2MNxb/a/9zOXeM/dxYR5sJfMYAgldgPst
VH9/cL8Fx7jfgmPcb8Ex7rfgGPdbcIz7LTjG/RYc434LjnG/Bce434Jj3G/B
Me634Bj3W3CM+y04xv0WHON+C45xvwXHuN+CY9xvwfH/91v+Hb/ln/Pxt9+C
Y9xvwTHut+AY91twjPstOMb9Fhzjfss/4//2W3CM+y04xv0WHCcpDFzw2kSF
Cu5b+gqu5MPYSRWGa/6rWH3hkUbN5JL/Z/4DPj/uP+AY9xNwjPsJOGbWvpii
dvLXec0/cCScf3oVY+2c9fC4W/yv6+u4no7Ph+vjONbXuux+qmENa+f9blPk
Xfiv6c14fFxPxjGuJ/+DDRXkChx+5YO9pOXE7LY1TNjRh0PgedF/TF/F58f1
Uhw3mnPlCC6vYQqF+mzUVQX/mv6Ix8f1RRzrHc6geyXzKx//U70R7/8nfRHX
E/H+uJ6I49SzaUFm3r/mR9OM0n0H1rDyEUajMdui/5i+hs+P62U4rt3nvK2R
mQod73nBk2Bc8K/pT//k+299CceSGgy6UYd+5eN/qjfh/f+kL+F6Et7/T3rS
7/pRt5IH8ZEwFToWvt61NSv/v+hFuD6Ex8f1IRyzmvXulL/66/vxhualq2us
YQdbtBO3yBb9x/SSf+7b3/oHjnfvz2xK4aRC6Fjp7Vrxgn9NT8Dj43oBjpOP
H/jqoPErH/9T/QDv/ye9ANcH/sn/H/SB3/WACRUnMzqJX+v7nf/jfB9v/53v
/4nPMyoxculuo0KdW9SrUGf+f8vn8fg4n8ex2uuZH/eDfq2vefC7EdXJNcwg
+mG/zpai/xi/xefH+SqOz1U+S2DmpkKDx1p97DYU/Gv8D4+P8zsc9z3Xbydq
/srHn/heaPNyt9E243/G/4nf4Xzun+/3Bz73O3/jq7+xx1X61/p+52s4P8Pb
f+dnf+JfUCM4WbOdCoWuJE7nVOT/t/wLj/87//qdbwVdyXuosPvXen/nW3/n
D/NYMF3/f/MrvL+Yye36pZ1UaAiNSB8pyP8v+f69nv4+3+/x8Xgbwv7qnwTL
BLFt1up9iv+nve2f+vz7eBz/Lz/kPjc=
   "], {{{}, {}, {}, 
     {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
      GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwNzMku3XEcxuFzjIlpQTSmhYNKUIsKQQS10BoSw1lUCNKYQjS14gbcjrFF
aZULqHFlTFS7aWtITAtC4lk8eb+f38n5h/rGwp8iAoFAkEkyxTgTfKSWAdIZ
oYIeLv1h1FbTRyzD5NPMut/r7BBZVPGBJ+81tp8XlNHFH+8ZtpJe7nSSLSbM
rn4gxV1CB8c6zZbTzYWOsS9pYk0/kuoupZPf+pZE9yva2dH3JLtf854jfU60
O49GfuhTbkjQRbSxrQ85I0rn0sCq/sU18bqQVrb0Af+J1Dm847veZJ9/RHgL
8ZZveoVlvrLEIgt84TPzzDHLDNNssMdfgr6TTT1T+oQr4nQBLfzUb+wgz8jT
QDU=
        "]]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV02WUlVUUBuCR7u4eUrq7YehGQkQU6ZKhlZCusYgZwgJFMWhUVFRUQLAF
DFCwwQAllFBQ0Wf/eO5+z7tm3XW/b59JHJLce/wNCQkJa33EbO/jH/NV5tGT
ugzVF+WYvI47SUcH3b/ma8ynF/UYpi/GF/J6xpOejrrr5ussoDf1Ga4vzpfy
4ySTgU66/8w9LOQmGjBCX4Lj8hNMICOd4yF4w1hEHxoyUleSE/IGJpKJLvHc
vCkvpi+NGKUrxVfyk0wiM1116XhLXkI/GjNaV5qv5aeYTBa66dKzV15Kf5ow
RleGb+SNTCEr3XUZ2CencDNNGatL5Fv5aaaSjR66jOyX72UAzRinK8t38jNM
I3vsU5eJt+X7uIXmsU9dOb6Xn+UucsQ+dZk5IN/PQFrEPnXl+UF+jrvJGfvU
ZeGg/AC30pJcsTt9Vt6RH2QQrcgde9Jn4115GbfRmjyxE3123pOXczttyBvv
X5+D9+UVDKYt+eJd63PygbySO0giPwXiGVzggmYhClOEohSjOCUoSSlKU4ZE
ylIuduO7c/GhnMoQ2lE+9qDPzUdyGkNpT7KuAiflTUynQuxBl4eP5VUMowMT
dBU5JW9mBhVjD7q8HJJXMzx25lydX+Xn6chE50r8KG9hZnCuzXn5JSrFnpzz
cVhewxy5PhflEbFfuQa/yS/QiUnON/KTvJX5ciOuyLOCXIcLcdfM1rwsLzKb
cjXugZkU3xP3wczPco44LzVbkMZa57lmA1ZyKe6j2YbVjIx3adZkBWfj/8Fs
xSpedF5oNiGVv+J+mm3pLE82K/OznGK2ZJu8wGzMn/I9Qa7L7/IrLJabcU2u
HPdWLsAn8kPMkxtyWR4V+5NrcU7eRRemOFfhF3k7s6kS91xXkE/lhxlNV6bq
qnJa3hG7omrcfV0hPpMfYQzdqBZ3X1+Yz+VHGUt3qlODmtSidtxjf1eEo/Jj
jKMH03TVOCPvjH3Eb3Wuxx/ybpbIzflbXma2Y03cA+f/Aevor6k=
       "]]}, 
     {Hue[0.9060679774997897, 0.6, 0.6], 
      LineBox[{408, 579, 542, 511, 486, 469, 458, 409, 410, 411, 412, 413, 
       414, 415, 416, 417, 418, 419, 420, 421, 422, 423, 424, 425, 426, 427, 
       580, 543, 512, 487, 470, 597, 560, 529, 504, 607, 570, 618}], 
      LineBox[CompressedData["
1:eJwNzMkunXEcx+H3GBPTgpCiC0eRKBaEqAhloWiTUosKQeQYQjRcg/uh5nm6
gGrpqrQS06YUiWlBSPosnnx/n/+bvOHIWNtoKAiCcbKjgmCAOr55/GgLSeBa
HzJBg84hxF/9i20m+coU08wwyxzzLLDIEsussMo7/wkTxZne4ztrNHrLJZpz
vc8PWvRrErnRR6zTpF8Rwz/9mx1adRFJ3OpjNmjWecRyof/w2V1KKg96l0/u
YpK50yd0uMtJ50lv8t6dTxyXustW8oID3W7LSONR/6TNXUIK97rHVpHFqe60
FWTQRy3P3nttNS8ZpJ4t7x9sAUPEE6GGEa5877ZvGCaTft7yhf+ZWj9C
       "]], 
      LineBox[{600, 563, 532, 507, 466, 595, 558, 527, 502, 484, 448, 588, 
       551, 520, 495, 477, 467, 449, 450, 451, 452, 453, 454, 455, 456, 589, 
       552, 521, 496, 478, 468, 596, 559, 528, 503, 485, 603, 566, 535, 510, 
       609, 572, 541, 615, 578, 621, 457}]}, 
     {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{625, 627, 624}], 
      LineBox[{626, 628, 623}]}}, {{}, {}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(i\\)]\\)(t)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  Epilog->{{
     GrayLevel[0], 
     InsetBox[
      FormBox[
       StyleBox[
       "\"\\!\\(\\*SuperscriptBox[\\(\[Chi]\\), \
\\(*\\)]\\)\[TildeTilde].478\"", FontSize -> 12, StripOnInput -> False], 
       TraditionalForm], {-0.35, 0.08}, {0, 0}]}},
  LabelStyle->Directive[FontSize -> 16],
  Method->{"AxesInFront" -> True},
  PlotLabel->FormBox[
    StyleBox[
    "\"(iii)  \[Alpha]=0 and \\!\\(\\*SubscriptBox[\\n \
StyleBox[\\\"t\\\",\\nFontSlant->\\\"Italic\\\"], \
\\\"i\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"\[Tilde]\\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\\!\\(\\*\\nStyleBox[\\\"N\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\
\\nStyleBox[\\\"(\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\
\"0\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"1\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\"", FontSize -> 16, StripOnInput -> False], TraditionalForm],
  PlotRange->{{-4, 1}, {0, 0.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic},
  Ticks->{{{-2.02, 
      FormBox[
      "\"\\!\\(\\*SuperscriptBox[\\(t\\), \\(*\\)]\\)\[TildeTilde]-2.02\"", 
       TraditionalForm]}, {0, 
      FormBox[
      "\"\\!\\(\\*SuperscriptBox[\\(t\\), \\(\[Degree]\\)]\\)=0\"", 
       TraditionalForm]}}, {{0, 
      FormBox["0", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{
  3.4839949736221933`*^9, 3.483995946765193*^9, 3.4839962162261934`*^9, {
   3.4839963766481934`*^9, 3.483996385551193*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"d", "=", 
   RowBox[{"Block", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Rho]", "=", "10"}], ",", 
       RowBox[{"\[Mu]c", "=", ".5"}], ",", " ", 
       RowBox[{"ki", "=", ".5"}], ",", 
       RowBox[{"kc", "=", ".5"}], ",", 
       RowBox[{"tg", "=", "10"}], ",", 
       RowBox[{"m", "=", "0"}], ",", 
       RowBox[{"v", "=", "1"}], ",", 
       RowBox[{"\[Alpha]", "=", ".2"}]}], "}"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"PDF", "[", 
          RowBox[{
           RowBox[{"NormalDistribution", "[", 
            RowBox[{"m", ",", "v"}], "]"}], ",", "x"}], "]"}], ",", 
         RowBox[{"Piecewise", "[", 
          RowBox[{"{", " ", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", 
              RowBox[{"x", "<", 
               RowBox[{"-", ".311"}]}]}], "}"}], "    ", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"PDF", "[", 
               RowBox[{
                RowBox[{"NormalDistribution", "[", 
                 RowBox[{"m", ",", "v"}], "]"}], ",", "x"}], "]"}], ",", 
              RowBox[{
               RowBox[{"x", ">", 
                RowBox[{"-", ".311"}]}], " ", "&&", " ", 
               RowBox[{"x", "<", ".589"}]}]}], " ", "}"}], " ", ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", " ", 
              RowBox[{".589", ">", "0"}]}], " ", "}"}]}], "}"}], " ", "]"}]}],
         "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "4"}], ",", "1"}], "}"}], ",", 
       RowBox[{"Filling", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"2", "\[Rule]", "Axis"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", ".5"}], "}"}]}], " ", ",", " ", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"t", ",", "\"\<\!\(\*SubscriptBox[\(f\), \(i\)]\)(t)\>\""}], 
         "}"}]}], ",", " ", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{"FontSize", "\[Rule]", "16"}], "]"}]}], ",", " ", 
       RowBox[{"Ticks", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", ".311"}], ",", 
              "\"\<\!\(\*SuperscriptBox[\(t\), \
\(*\)]\)\[TildeTilde]-.311\>\""}], "}"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{
             ".589", ",", 
              "\"\<\!\(\*SuperscriptBox[\(t\), \
\(\[Degree]\)]\)\[TildeTilde].589\>\""}], "}"}]}], "}"}], "  ", ",", "None"}],
          "}"}]}], " ", ",", 
       RowBox[{"PlotLabel", "\[Rule]", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<(iv)  \[Alpha]=.2 and \!\(\*SubscriptBox[
StyleBox[\"t\",
FontSlant->\"Italic\"], \"i\"]\)\!\(\*
StyleBox[\"\[Tilde]\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"N\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"(\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"0\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\",\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"1\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\")\",
FontSlant->\"Italic\"]\)\>\"", ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}]}], ",", " ", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Black", ",", 
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<\!\(\*SuperscriptBox[\(\[Chi]\), \(*\)]\)\[TildeTilde].344\
\>\"", ",", 
               RowBox[{"FontSize", "->", "12"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".35"}], ",", ".08"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "}"}], "}"}]}]}], 
      "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4836306645796804`*^9, 3.4836306854682145`*^9}, 
   3.4836307417065754`*^9, {3.4836308409544115`*^9, 3.4836308495812664`*^9}, {
   3.4836308968651695`*^9, 3.4836309381274343`*^9}, {3.4839943330901933`*^9, 
   3.483994370416193*^9}, {3.4839949901981936`*^9, 3.483994999220193*^9}, {
   3.483996256223193*^9, 3.483996320475193*^9}, {3.483996359921193*^9, 
   3.483996362808193*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJzFmnk4VW37980zOyolEQlJhhIROoUkUSGSMiSElDFDIRKJkCkyZIqQEIoK
6zKGhLDtvVEhJGRMSYZ33+/xW+73eN4/fsd93M/9PP7g+Bx7r7XPva5rneu6
Pl/CVk4GNnQ0NDRN1F9//PX9oje7ukpA/A8/mT4IFYYntG6PaPYTUAkSKs+j
SACjzZG9fGZcyCqGhUbLUw7Wk+sdM6I4kaT+uy39qipgUJt4QaKZA1m9/B7X
t0MTKn8KKjTOsKPu1eJPnrp60Kes95wkzo44ey4zJUSfAvGmXetWddmQ8LxD
8hFbM8hsNRff4cGKrLgL67syraHzs8r4y6csSFTZjU6YwxFk1JtDL3YxI5s0
wQ1XTdwAimhJQazMCFSNxKp7vcH/fuSndHUm1O96RvsYYwB8q2+pJTowotWb
W5/6PwsGLsbSU9fSGRBwuw+dtgqHs+E61Qpv6JHOJ5PEvgMxQAnfPzY9TYd6
pN86Ha5PAPaHrRi/BB26xu7PbEJIBfufG1zMT9Kilxw3dhEyM+G6JWMbdzAN
qv+5Q+LX3hxwFdXhfmW0ijk9IQjE0hfAyWsKy8ceL2P1EpaNRUbFcH/SQx3b
uIQ9KiPwjQw8h33zG8HKahErZy+fG1B8BUr8rHEjbxew4yh99/3XVZC2J/eC
repPTM/wIPv5xmqw7Hn8dWP4PGYrG6YmklIHtzMWG7N/zWG6Alc5sxzfAOPy
E4uLmrNYJ8e4RWJyM4wcYXMSiZ/GJmeO5F/tegdm1t6FAZyTWPlZB50Ll9vh
oVnSFH/uGLbBd8Ilhr0DCuNsBr38vmCRAoducft3wq2COw0tF4awWZnFnfak
LmCdcODzZxzAOGWEd9Lv6obX7aOqE9W9mNOGLI9QVRLU8XiIxc90YQXetaO+
cmQgPXo8GiHxDntiZXOpvZ8MSo+bj74tRNgrI4OyHycpQBrklpFUeYAZsp6X
PhpMgbu2zbaX5oohtDe+1MqDAuLryrndJN5AuvhWa2FBCvwu1TfK0+2AXp5M
Wa+bZNAc8qjYGEUGQY6dxazlJJBqFtaqOfcJ6L+5EGoedQMHneRtXsogqPGd
njf2JEKyI7dx1I9hiK66QUje3QW6SeIhx42/wtiqn6FzbgdIhcUxH/WZAHOl
O2ME6fcwl7K/aXV1Cvg4lWqHF1oh1t3ymH8SAQ1yV9+d0BcFEzmzcY5mLiST
0niqqU4G7j4MbjP7yYlUuYefvvHeD8V6sqPDUpwoSKPkx6tBNQj50NeyYMaB
Pog8ERk31IYWvhfzbXfZ0S9reZ7k8/pwk67C6tIrNtSfsetST5oJDL+tS4oa
YEV5rxXCNVzOgzJFj3WKmxUR7Ou/t/LaAW0M/et1h1hQ4/xszW0/Z9j/a7jo
xxVmxJOjHVVr7QGWmdq967OZkHBX6SiU+oKCdMH7192MqFWBsUG9IBD8bNQ4
djIxouj42sEnPXdg39HVUJN9DGi3TF7OFuI9SOSsJq4/R4/2GJ9uGuyJg9mN
9EZM4XRojhilrVWfBK+aXTZXVtAi33zr9E6fdLA9ZaHoMfIR8yqLFxJ/2Q3I
Raa4+gwZ2/K2nG8AI0HCrLWeTO17bFAxlcaAOm4sYkp8TycasH1ykpuPCFEg
9nN+4UlSCWY9MrT1iTsF8nvZFaq1HwDRTl7uCHV+vEiPsIrVR/DCOKLHzJAC
XJVSHy8MvAMBwx9ysWQypOkOsfRfIcI8y4PKThEyKJ7WpZ340Qt0UhkSkvIk
uBdra7fj4CSkb2xxnTRqBxZpkiB6R0BLqfYPpU1E4OaW0TfBNAQk+iP6W1ve
bmik/eKvvIsLJXJXru61kodBnuu76iw4kXKZfpD10EG43K68mTuWA9UrlQwK
impBXcjYRl2MHclHuZ1xnTgBMqkMd4Vn2JBg03c/l1vGENz800h7ExuarI46
kcRgCVOGxgmsmqyIs3tV6LeeLTgoCxnaeLKgqd6dJs8uX4ESAbJAYTozGlPI
/bL43h3aJUQpLSQmZBAX+Iz15XU4O/iQXMDBhMykXS5ynLgJL+KYRv0UGdEW
4VPxDQdCQPgxxemrAwNqP39n5aZHJFx7F3QsK4oe8d897zMREAsj+impv6vo
0I5Cn1BdlUSw2ifkODFLi0waH4bo+KSB4LF3iWYq/ZgWMcXmo2s3HBTmWOjm
7MHGB8998vEnQcHNb0oXTDuxe8pxbjutyeBsM00jyN6MCWqW8pvTUYCeLz3d
LekVtqnOkkiwoQBN3swc5+5fByGlVO5wCAWWuuY26rx9CSfJVbO7L1IgcWTW
81JQMzwqyPD3WCZDKw2/TP2HTijq3VZGPEWGqpSBjzSaPXDgqhODmRcJPhJW
yhTMvsEK1+NktZp2EHr91VPNnoBmZQTIz66Lg7RuB1dMDBfqcp703BG/B04q
iwn613GizLFa/mfVSnAzZDiLeYkDtS6VPmhzVYeMMd+AfnEOJNNlps/0XAe6
8gKIhqbs6MxkuK75mAF02bgpPQ9kQ6pDtbG046ag+S5qoOcJK1rRcXSi/W0F
t80PX+v6xIJyBcYZ5WgcIGFsZHsFGwsKVySw3fvoAq+75jQOqjAjWTvmO/t4
vGB6q+MHU3cmxGRc3jfaegPUawwc87O6MSv6ILf7v0lw06rP8rdkOybP7lg1
/Io6v0cC9qi01mJnXk+P+h6ggM45l+tnxfKwIHkOeXSDAp5meqVJh3Oh/IwI
/0l/CkyaiLwKrKwFJ68xVRplClQf3be94GE7kD4dLggvJIM6X9tmnm1T4HAy
bSWsow1qQqNZ+kcIaPclpkk+x+3AGyH1opafgCL05l+HKEmCrVz8mTwNLiTI
l9ducXEfXLuadqzEixM5ImEn3lBV6D86ripQyIE+BTnr2m47DGqIQSyUzI5S
EoITyHHHIfhbTpoPBzsaTW7uuxBsBN1HuUtE9rKhXlE/P6ln5nA0qucTrxkr
6voSGilz1QYeRkqnRkazoCs+Fjbn9l+GGRn9U+yvmZFrKXIW5XEHlsvrTXKn
mZDDjTdBWMM1uKKy6VyOOBOqun/BJ+JxAHQ8/WqUp89IXT+cdbFwuw2bu7UG
9wQzIMXz7ibRdhHgIGXHdCWfHv3k1S3e2xcD/U5jmj9IdMj8/PuaGL8HoGD/
cyMDFx2yitqXF0iTBrH8W3sm0/oxo3Uk2erj3bDktZg48KUHC49OMXKzIMHL
5j2yy6JdWObhlJlDumTYwdjibpz4Fhu0DpxlmyXDK7mkLUHLlZiRfdGF6LMU
cByJleyXv4MJ8my80nCbAnUCFlWmFi9gK3oefdaJApbXiZpOpEboNrRbNuSi
wJCpQs3+jZ3A/d117wZHMtAeytcLc6BA+GDRhuwEEgS/a/qETUzAU6Z5Z+WF
dujZlHXe8iYBEcLTLoRbikEttmm5rYALsRX6zMWUycKkY/ePyQ+cyDyZzso9
XhG2jLO9+bGBE3158HTuafYh2Ggt9XhCnQMdLBxfmfI9CicHk4aj3NgRsZ/N
V3a7AUiWbjq+LpXaz767WNCiMxCr++TgiwZW5LVp0tlyrxUMJDVVDyywIBO3
X8MnmO2h5eD8lRFR6vMqc+u0naQL/BpxvJZoxIwOFPgKr1P0hJ2Wpuf2hzOh
jGx3xfBKP6DdcohQdoOEMfCbpMh9JEF4ntDpuJ/t2MeJ9aTIbDKcCjbLcjer
xzZcNQinSFGgr7FYAa4WYce0bPsarlEgOytXfOV7BkyF5uY0B1LAYNmE6y5z
DVyVmedFRyigvfMYt2VkG1j2m8nG1pHha3eiWlLBJJSpHVHP2NYOFfUbwoev
N2J5VtHcjdwU0F3J3mmlVIaR3g6/uXyZArzkECWOE3dA3cXZuZ46fvvuhlxW
2l8JsQtycyQzCkxoZVfSQw02L6FXuVeLAr1ivncUrTIxcsshn/vUerQ3zqgp
3S+EVNOkWdJ1av87Sz8TEjkFFiVMu6ts2kBIyXnZaY66/l7dpcG1KAz9R05K
WUkQUBTID3rd3gUKulP1509yIQk79Qi6STloEJPr2xXEiU7xoTq1QRV4wFR7
MrOCA33dn5BQk6YJK73c0hLD7Kha0zwoZEoPnm34vWvXFna0N4tYqMxuBH6s
D89HARuyMLijI8BmDj8KkwNT7FmR6va8x/HsNlD+Ur5+RxoLyiproDuf5gjr
XoY7vXzDjBLLenXDSt3gUURo/KZlJjQTwPv2zMlr4GnfKSAqz4TutZo/fWMU
AP1KvRxq5owo5aPEPOK+DTGXffm7YxhQWfA6joChcLAyo1zoeEmPzqwfv7sU
GgN9K/fi3YboUOSp1suWwg8gjf7zWCQ/HQr9LX3i6u1UaA2s9d7f2Y8RTX1Z
PVS6oe+Ry8TIqV5s7xjL3cTjJKiaNJRsDuvC6A/sd/kNZFjpelkwe74Fy4uw
8An9SgbeQ5tJ4QUY9r1pPdgZU4BJ8kpG+Hg0tuXsxSRx6njurInluZBbCjVf
MBEGN+r9Wa8l6ULTCAYfLIjneCkwzVzHPlPUAT6KDbnnPcmQEc0d1E59bnWX
fexwzyGBaX6h263SCbhpzty1a/172N9w03g6goAk9Zrfl5JEIcL7gPuVCi4U
uKXatOyYLFQGSV/IHuNEW330Pq1nVgTb5JTTV4Q5EWuJk1uJxiFoFWJ85XqS
A6lfpLcz/KINXCs532T92RGfouyRn0gfjHvtyZX5bOjO/VTPX9JnQIVD8ZtI
Fyt6a/fKc7j9PES8CrOxY2RFv1Y+bGKOsIMRu6XY63IsSL+tM21vlzNsds6N
07ZiRiNm1rVR7zygLuB9UtYDJnTbyXn0y34/6D9cblkxQcKEbGZ4draRILpV
3cDK7D1mVkdfy5lMBmnjY5/WiTZgq33sK1LiFFDslpk7IlaM3TxnqPrBkwI+
MYU15g9SQUgyu2RnEAVutbkp3ttdDVqSJUYlehR44lrx83x5K6yXgt3PW8lQ
8dy/y8JjEujqVUqbD7TD/Ti6NwEaTZhKsO0ZWTYK5LDvGHYYK8cWfhq+t7Kn
wHj7TbWMs97gGT+7XZS6vkiQrao+FPAa7hq4ST62okADb+zPVKZabEmQcsZD
jQLRhzzpdOqysbd2v2rbAqj9Vin12tjlfFg6kFAs50eBKwe+3tI7PQVtXMU8
4sltYC4maO6jW4GpSbL9crekQPy3xB06Et4YW01D+h+fZ+kt4WCwsRw4rwUJ
21+iAK3npe+OIU8xs93iAxd9KRAR8PubrkA2LDZ7bpW6Se1XIna5IgvRcDb/
l6AYdb6JcASuE6dJwx5Z5xzfQL0+CV7p9JoWz0CssWlCxZtav4+AWd2bKQhr
OZtmINMGx9d9+ln2i4BqLsqSaGuEoeHRgN0eWQISLhHcwi67Cx6a8PtUGnOh
UH0vZv1iOXC84fPINowTFd9s78mIVIEfQ9KmtrUcyL9EvsrLShM+2m8u9hpn
RzPALPMgRQ+0du6YphFmR9Pq/MyJrafAwH5IUVuLDZV2xjK0lJmBLuZL7Hdi
Rf3xPsw+JGtoOK5kMpXNgkJfJ2qOGTlC2rKk77pWZrQxn8ByMtgNXLdplR2n
Z0bNARvkujZeg6Ubz/w+KzMhVeI5F0upABhZNRwNtWZEn1bDta8OBMPJl5sV
cxIZUJt+XZNMZjiYz0dF30L06NnGNwtNVjFgqjWkVjxGh34X67DIziVAd7sJ
0Wg7HZLWyzykeCwVJvbHN52d6MekjY1CDsl1Q8sBqTj7sF7MZ1rEik+LBNU0
wzlFVV2Y8s8TIbVKZBirKHqL6lswRDDL3DdMhsELT7bc0UCY954q63LqfmOS
Cdn1rb+P0ft0nEbU/YhpbKHKxdYSyC3jK6ig7ld+ONwQnI19A+NedHlHtlDA
42No0Tu/DojWVm+f8yGDm3KdkNsbMpiHOAZrFVH3y0kZlbYJE7B3n0bpQ6H3
YJsyc1IxjoDqtVbynGJFwa37baFqLRcSe86cU8krCzuiTfnoZjjRgbwcOQ60
HzjmR7bliXOiFMGBuz95DoHkqnOt/GkOlGp0q1wpRRu+hRW6+Aezo01l9s5c
UfowMRmdElvChr6qBOaFfzGBdY5+dT09rKhHKesjJe08DDU5lj1hZ0W9xuWX
JQzs4PvyqrjWARZU9dtcZHeuM+SUHslMtWNGMk7PaOYTPCCaJ/x1XyoTKloV
zuia94X2XjdWECFjd+8dXwp7Q4K4/s427XvvMcWCAp6y+2TgP6i+9DGkAZvT
6J2tFqHAyLkr+i0rxdiHH6nKetT9fmyZ2RLBJRkEXByHMer8T1EM0OPBECjr
BRZHnaTeL5vmxwZ1W+EBb8tcficZxLLcBNVNJyE7b3yfmXY7BPr++nzicRPW
wVR7+zgTBYyjrTSmal5i8it1+urU/UVcjcfxVnd7UKrO2qZKvV+b6Sjjh7Nf
wbd4DOasKVCyErrhikMt1jFinxagSh3v49+rDK7mYAkKx3jfU9fTjsc8NtVS
8iDMurPjKHW9TZboa5VRnoLnl10FTMvagOPpuQoa0UpMY2gqg8OcAsnSMw/V
h29iXFyMS8vU+zv6mGas8YEyYLvKEnuJun44d2u06KpSIcYoHuIm5EN9/sd0
hIreeQS2GrQd9NT1wZfI3Q25qZHQZHTqtS/1+Bt8NO9knqVjrBUcgea3KPCQ
ltNANq4Ito2rnY6mrndkHdc9zn4yBXp6YVkhOm2g8lCx3Dc4EhvIMl/wox5f
XOZf122ZDi3Cyw8DqMdrCQ3nX1m5CaE/3qj+UZ/CvsXDh9ZnYbsff1euoPan
b7+zeQXX2WON3Oss/rhedasvnVyF7kOOPENyFXX+Ryyz56g8TMZkmyM+lFHH
61z4rvWDn6dA3IKktXVDG4xc553vXSKgPrURBaVsYVA0zGN6IEdAJxf1HF8y
7IIO8z2nx89woYyJa60vYuUASaaH3IrgRFW2LxSybVVgR9fQxzcNHIh27CAh
TkMTWov43dMm2dE3o6jPk+56wF1cbuC4gx1J/BCXCCo6BSoPbj/KPMqGdDYT
T05HmMGC1hU/OjdWxHZidPRBpTXo8r1OP5XHgjo4i1mnZR1hdNtvepX3zGi6
OSLC2MkNyF9EjjgwMSNC7ZBtxYI3HAwTKlQHJhSSO55xjC8AxqzWGRddpO6v
A+yEnJuCQcbCVov7IQPy/qb0ovRmOJw7NJn7oZYeJRw5ktN8PAa2jIXHvf9G
h951zDPt7UsA57KY5nJROlQZMRypIpUKi9wBM98W+jEV8o6YTOluqGMM+5qX
3YtRuvwzOw+RoObO0y8i5C4sV/HxlQwFMvTL7u55/LMFE/KpMWD4TIYIRuW9
ed4IC3/H2XjGgAKD30ff0ufEY3RbG7Fg6vi4LVfof7UsAeJvLrroq9TxquRP
2GvxBpzFB/MUtlKg/OgkXYVNB5gXdL0su0GGvsiUK5r5ZAh7qTkpUUoCr/XJ
g6dDJ8C5mCf7tPh7WGaROH4ugYCOecv93ugmCiO3YvWyGriQutMxs8UFGTBJ
cP4u850T8Uw9z3ufvB8s0tkZGndxou9ZmQ5Ni2pgOimmHW/KgQ5L7Nzl7aUN
fR3Fcjl32NE6LPmmlrc+lHmJ09CUsSE/LHC9QJ0JLCYJyyp8ZEVBjelbae6c
h3v6ZpbvuFhRikZKz6V9dnCtMcDliSoLelx1+fW7GGeY7ubd9fYSM4IZurFW
Pw/41eNwbCGDCc39VvBf7PKFxuz3Zv4HyZihx60L5bUkuG+fzFWR+x7TkQMj
plgy8BRXsjW8asAYjhEsmLZTQDUt3J/rUgk2Z5Dv5Ee9fmlN+x6M9iXCE96B
EEbq9d31jdnEMATBFt5bnIv6FLjqEGUtsqkVotRcsrZ3k6F362UNOd1JyCHF
LYueaIdrM+6zCpQm7Ip6wg4TBgrkEwNc98i8wszVPhtI2lLga5a5g9jjM7By
rlZMg3q/fb40QtOo+AruPimz4aG+nufKJGKUXIutjGx6RKtC7S/EvQIkvVys
XXxxXIfan1y7BmwKCXmQumHzbCu1P4WnE+eEpKZAonZcfq6uDS5MXx9Xj6rE
DGmE0ftz1PUXm4ZNFGcwtsjJuXeIev8/KdXPJbe8gN1pgoM2VygQFBTDvMxS
hLnKLk5cpe5P0rYepHBjmcDieVTJntqfVkp6Vk0978I27c7oTOrxUmkHJUvv
ZGDZWnMNS9TXhRvUvcVki+DMxQXB/dTjhz+ztsSnTIHhB63rIiZtwKN6GGxP
R2G/HlRrGVGPL1eb4Km9nwbXpZJESdT+VBEi9g7yb4AQ2Emtp16PoVeKj+rH
s7AeulYtbWp/eiP/Mz6f7Ip9mPT1laO+3s4dxXHsbix4DWuZfqeOzxjbHevD
Jx5iOZubzOyo/YmbcYdiJ3EKPuXcuF4m3AaLm+MZn9+IxY6r2fyYp76fn+9T
CQO7G/AkmQv+cT67rIPPvnjfwBQYZ97+8fmj8qC1dCEK1h9lHDOk1nuqZmRG
2vwudphesugRlaWXFNwqxYJhapn/1GcqP9iMLdZ/MMGe3vXS+mM8czbumZye
mQJb6VzmAKY2wPMWmv/5wfMWnPG8BWc8b8EZz1twxvMWnPG8BWc8b8EZz1tw
xvMWnPG8BWc8b8EZz1twxvMWnPG8BWc8b8EZz1twxvMWnPG8BWc8b8EZz1tw
xvMWnPG8BWc8b8EZz1twxvMWnPG8BWc8b8EZz1twxvMWnPG8BWc8b8EZz1tw
xvMWnPG8BWc8b8EZz1tw/m/nLU43YuTERgYBrwfPW3DG8xac8bwFZzxvwRnP
W3DG8wSc/9t5gsQN8QkHzQG483LJ/QVPN0zUPGYMtBtaqx/PG3DG8waccZ+O
83/bpwvtTWa29e4HSwFvOmazbtgw6frhevrntfpx344z7qtx/qd9dfG6MhFS
7gcoiCacuD/ZDXtbitudCIMQnr24d7qeuOaz8Xpwn40z7mtxxn0tzv9pX5sU
Zhz3eX0/EGZ6pJQCuiEn0OToguqf1xv3uTjjPhTnf9qHzpcERJ9v74PlLx/G
dHhIUCB62fxb7gC8/K3MlDZBXPOleD2ZB3I1miI6MCMp/iLp6+S/7U8fkQe8
Rz/2w2J8kZuMYjcEOlg3pb8lrn3/v+pXy1wX1GfdByHEvoL7yUPimm/Fz4f7
Vpxxn4gz7hNx/k/7xGLni+WaNZ9AEaoY18d0g+vxYzcUOP6cL7hvxBn3dTj/
077uPuOXpuwLfaDgNtNHFCGBo4GO6G7PARjfLvGkapW45vPwenLM3x68/70D
K6UJqH/jRP7bfs+KEVMTz+8HWsf7OYU63WB1v3fLY8U/+9Nf9X/uqUTWPeqD
UH9Ih82ymLjmA/HzlWYT5GVRJ8YzO0HQNyH/2/3g9EJkfEHfAKS007GcpRD/
si9cPMzvU/J4EGZ3vnr3PpS45g/x+nF/iDPux3DG/RjO/2k/5pyieSMw8hNI
pHNOTCV1A6lEM9Fo7s/1Be7PcMb9E87/tH+6WPDA5qhUHzxuqVO7vZsEzaPl
IW/NBsD+R5gbsHav+Sm8nifO5yp8xDuxTA7RHav25L/tq6qTpB41RPfDpcJ3
Xv2G3WCwO75WwunP+f5XfVanvObl9p2DMBT3Ee2uIK75Lfx82vc2DIXR/jkf
/t2+60TkyqJe7QAwbBfVoftM/Mv+y6TvzieDiEFqf/wwXRNLXPNheL0VfTVP
P5v8Wf/f9WO8rBezo84OQvmmim2hOUR4FutXdjS8E9t19F6Vhjn5L/uzpML8
zRuqB2F83UI5yZ+45tPwenGftjb//8cX4Yz7orX+/x/2Ra1yJYPbPT5BkhHP
adO0bgi1rRYf/n/2A7hPwhn3MTj/0z6mnc6tZAtPHxwg5g33yJJgUc75AL/+
ANA+3yG9xNm95mvwevJ/7fg9pdaJ2WluDt94kfy3/c30yJARb3A/HP3ozHzV
pBt0fn7fdCn0z/v1r/oduoDfgkJbB+GURGAmoZq45nvw85Ufsp+5w/HnfPh3
+x+/nuf5KS8GIOzzjzMdX4h/2QeFiB+Kygigrsc0UreXPyCu+SG83kqbsAlj
1z/r/7u+6PApQZOB44MgI3DtgMdTIhQLHPlRkd2JHSXUieqeJf9ln9S8eKH5
QukgaBjc7CcGEdf8El7v/+aXXiW67tV714l5RXoENRiT/1ffJBHVIUWfNAiB
W0L93kYS/7J/yr1V08PUMggZidf4bvsQ13wUXm9AnEaY45dOTKtBfmuiIfn/
28//a73/+jz41/Pj53P+v+9vXPt/zJ6EP16vX/v+/3o8zv8HdNvBuw==
   "], {{{}, {}, {}, 
     {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
      GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwV0kdszXEAB/D32lCV4lIUB16LmKFi1rjUPlAPMWM0tUeVWhej1YNZMSpG
Qq1KqNFK7ZoHTUprXNTswXah1oHyeYdPvr/v9/d/7/DPP5SeGV4aFQgEglRw
WblPBTdZy0WGcI0lnKIZ2ZyjF7M5xBd/lCIXcJxoOjKRnTx131h2Zzr7qLX9
po3zaPK4p38myrkDE8jnie0Nv2itj2ITd/XHvOYnrWwjyeWO/omgc3vGs4NH
tlf8IEEfQQ639Y+RF+KcRJjtVNtiZTemUcBLWz85l0K+6y3lcDZySx8sF1NE
U5KZxUE+uB8g53OMf3qWPEMi49hGlX21LGEgV1nICRpxg+UU05VLTGUvL/y2
XK7iAn25whyOUOf+ulzGaVpQxjA2RL4D92tkKYNYxEmasIKz9GQmB3jv+f5y
Hkep10Myja081GNkF6awh+e2PjKDw3zTm8uhrKdcj5M9mMF+3tn+0s55LFt4
oDeUnZnMbmpsX4l3TmVd5H3pb/lDW30Mm6nUG8hOTGIXz2wr5Xl68x9oSGet

        "]]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV03WU1GUUBuClWbq7lpQGYelulhIMsFCahZWlwUDprl1gQUEJARMk7AKU
VrAVLDDADrAD8bl/PHPf7z1z5sz87jdJQ9MHjMuWkJCwzkvMbl7+NZ9nFlfR
hGH6snwgP8BtZKe77pL5ArPpT1OG68txSt7IOHLQQ/ef+SJzGEAyI/TlOS1v
Ip2c9NRdNl9iLlfTjJH6Cnwob2Y8uUiJH8HLxjyuoTmjdBX5SN7CBHLTK343
++T5XEsLRusq8bH8IBPJQ29ddvbLC7iOlqTqKvOJvJVJ5KWPLgcH5IUMpBVj
dFX4VN7GZBLpq8vJK/IiBtGasbokzsjbmUI++uly8aq8mOtpQ5quKmflh5hK
/tinLjcH5SXcQNvYp64an8kPM40CsU9dHg7JS7mRdrFPXXU+lx9hOgVjn7q8
HJaXcRPtKRS70ydyRF7OzXSgcOxJn4+j8goG05EisRN9fo7JK7mFThSN568v
wHE5g1vpTLF41vqCvCZnMoQuFKcEJSlFacpQlnKUpwIVqURlqpBEVarFXnxu
IV6XVzGUrlSPHegLc0JezTC6ka6rwRfyo9xOjdiBrggn5TUc8McabnZnvL4m
X8qPcQc1Yw+6orwhZzEiduZcn+/kPfRggnMtzsmPc2dwbsxP8tPUij05F+NN
eS33yMn8Io+M/coN+F7eS08mOl/BeXkHs+UW/C7fFeQr+TnumtmRZ+R5Zmv+
intgdonPiftgFmclbzkvNNuxmnXOM81mZPJr3EezE1mMiudpNiSDH+L/YHZg
DU86zzVbsYo/436anUmRJ5m1+UpeZLZnpzzHbMkf8owgN+GC/Czz5Tb8LdeO
eyuX4G35XmbJzflNHh37kxvxo/wUvZjsXIev5Se4mzpxz3UleUe+j1R6M0VX
l2/kXbEr6sbd15XiXXk9Y+hDvbj7+tK8J29gLH2pTwMa0ojGcZe9rwzvy/eT
Rj+m6urxrbw79hHf1bkpF+XnWCC35R95hdmVtXEPnP8Hwmev/A==
       "]]}, 
     {Hue[0.9060679774997897, 0.6, 0.6], 
      LineBox[{408, 635, 576, 529, 494, 471, 458, 409, 410, 411, 412, 413, 
       414, 415, 416, 417, 418, 419, 420, 421, 422, 423, 424, 425, 426, 427, 
       428, 429, 430, 431, 432, 433, 434, 435, 436, 437, 438, 439, 440, 441, 
       442, 443, 636, 577, 530, 495, 472, 459, 648, 589, 542, 507, 484, 664, 
       605, 558, 523, 444, 637, 578, 531, 682, 623, 496, 670, 611}], 
      LineBox[CompressedData["
1:eJwV0klQznEcBvB/mYQRlxAOZBtbQ8a+XSzhYHkx1glN1iJLwkUKh0KMrREz
hDBjC41siWrGxZZcrOVgd7GEQ5ZPh8883+f5ve/Me3hjk9JCq8KCILjHtfAg
GEgx63nmYa+cRU8iuG/LkZPpRIP+ljI262OI5qv+nH3u2fSiKQ9suXIKnfmj
v+OQO5F+tOS2LVOOpQ3f9KMymUG80PfLOfQmkoe2HXIqsfzVj8ulDOW9XiAX
0J8LrCOKU6QwkitspNznt8hxXKUtZ1nNLb57PyYXc53BXCKj8ffz0vsBOZdS
+nCetZTRjCJWcIMRXGYDj3x3p5xGF86xhn/2E3IZw/igH5YLiacVp0llFHe8
Z8nxtOOHXiiXMIRX+kE5j74057FtlwzRlYCPtrtkuxOIoV5/TTV5+nS6EcYn
WwVb3RNoz0+9lidUss02kQ780uuoYbc+g+6E89lWxXb3JDryW39Dvns+cbTg
qW2PnEkPmnCS5Qzni/cjchEDuEg6rTnDSm4ymhI2Nf4P+A9NlmYU
       "]], 
      LineBox[{453, 646, 587, 540, 505, 482, 469, 454, 455, 456, 647, 588, 
       541, 506, 483, 470, 657, 598, 551, 516, 493, 669, 610, 563, 528, 681, 
       622, 575, 693, 634, 704, 457}]}, 
     {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{708, 710, 707}], 
      LineBox[{709, 711, 706}]}}, {{}, {}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(i\\)]\\)(t)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  Epilog->{{
     GrayLevel[0], 
     InsetBox[
      FormBox[
       StyleBox[
       "\"\\!\\(\\*SuperscriptBox[\\(\[Chi]\\), \
\\(*\\)]\\)\[TildeTilde].344\"", FontSize -> 12, StripOnInput -> False], 
       TraditionalForm], {-0.35, 0.08}, {0, 0}]}},
  ImageSize->{505., Automatic},
  LabelStyle->Directive[FontSize -> 16],
  Method->{"AxesInFront" -> True},
  PlotLabel->FormBox[
    StyleBox[
    "\"(iv)  \[Alpha]=.2 and \\!\\(\\*SubscriptBox[\\n \
StyleBox[\\\"t\\\",\\nFontSlant->\\\"Italic\\\"], \
\\\"i\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"\[Tilde]\\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\\!\\(\\*\\nStyleBox[\\\"N\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\
\\nStyleBox[\\\"(\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\
\"0\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"1\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\"", FontSize -> 16, StripOnInput -> False], TraditionalForm],
  PlotRange->{{-4, 1}, {0, 0.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic},
  Ticks->{{{-0.311, 
      FormBox[
      "\"\\!\\(\\*SuperscriptBox[\\(t\\), \\(*\\)]\\)\[TildeTilde]-.311\"", 
       TraditionalForm]}, {0.589, 
      FormBox[
      "\"\\!\\(\\*SuperscriptBox[\\(t\\), \
\\(\[Degree]\\)]\\)\[TildeTilde].589\"", TraditionalForm]}}, None}]], "Output",
 CellChangeTimes->{
  3.483995001038193*^9, {3.483996337650193*^9, 3.4839963640181932`*^9}}]
}, Open  ]],

Cell["Putting the above together yields Figure 4 of main text:", "Text",
 CellChangeTimes->{{3.5119127982114573`*^9, 3.511912809076544*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsGrid", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{"a", ",", "b"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", "d"}], "}"}]}], "}"}], ",", 
   RowBox[{"Spacings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"10", ",", "75"}], " ", "}"}]}]}], "  ", "]"}]], "Input",
 CellChangeTimes->{{3.483996446520193*^9, 3.4839964523041935`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{InsetBox[
      GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJztmmk4Vd/f/495OsYiQxkyRUiKiPZHQiFDisoQEUUoU4MkIaEoMhQRQtFA
UplqL3OZIuOJVOZ5zDzd7v/12+7r/j64H/yffJ90npzrda219nXOWnt/zlrv
1xGxuWBsR00ikbbRkEj//X69T39ydZUd7f2lu9dxIhd7QeWeQtrDjhpORKvv
0C7F6OwOKvBZsqG30wJNmxfrsA2tZU7J4azogJWv00vFNsy4JNZWqpKMDgbx
Zb8+04N9nBVU+jzBgmLmsjc9053A2lX137VIsqCws3sCc6sXMMkv0hyrh5lR
rgt9GIshHTytPSUpdokJ0V6ePnU0ngMautSG8l4xIh1dhoXlHl7YoVEZcraR
AVkE+XvH8ooCZFG13GJiQHcUEzb9lJMB3+h7P5M06NFocHPPSdfdMFJWXdLk
SIe6mT0lug5hwEaXc8wriRb9bqjLGU7SAvNQ3SKlChp0M2N88c4NQ6CE7hkc
H6dG4pst7mKBpsCSUIsLSFEjgUvPXK1FrcBhdqPrKSMqFDbyMtK40w6uWdN9
5QwkoRpt/8D0UmdwE9flzDdZxTM/Yv3f7niAkZfSst6zZVxd7JuKSuc1iB69
pIFzL+EzbhtOXzXzg93T3GBjs4A/7wzVe+MZBCoCTFG9VXN4a8oxT9fn9yBx
Z7qt/b5ZfLuNVutD+Uiw/v5sgDt0Gq9sme84Rx0Lt5MXPqfNT+HzbLuU3xkk
At3yC6uzmpO4wjdOf7b4FOg9yHxBNGYcL7lP6vryPB0sz1zNvMk6ine9Gh8s
k8qEBMu4MYH0QdwhQIyriOEtZEbZdV7x6cNNJOeq5HLeQ8Dr4PJq225c7zDD
5dzCfGAaduTzpfuNM3vr0PHG4FBQ179vuKgNl+rqTb2gVQylXJckYiYa8eDg
qthFqTJoSXnWHyZVg79eiJd6x/AZVJ5V6lRlIlw9U2Ou508ltHRy7tiu9gjX
MywUClGshbv2lfbnp7JBS9+7zjqpDiQ5cjndpSrAoGUu4/X+b7CYc8Qk4/A3
CMVdeI9+aQDN7kuF3OGtkH0j02+PYBPIVopoF1v8hNu9orS655tBjQ975/G9
E8aFm0b0LrfAYydO0/CZHuhrdREJMWiFw3GSQQamA6C32V1v81IryN6JYtDx
HgZj59v4rDUFpuL3fFldHYPtSo27tIIoEOlhrecbx46YW5Z0sBYcO7HLcohc
yYbcXV8PrmpXYncTAr9azrKigdg7mhG3mrBsffn+HllWJFlkwRe38TcW9KO9
es6SjD6NbdwwqzaEVfO9n/56lwUFUhmrxoZOY37UhTbn85nR23kLoBomQU9V
aVz4byaUZRx08GIqM6hS9JnGOJmQNu7SRG+5Eage0BRw7GdEhXnRMg6/BWHP
fE/WjAsD8tgsuqiwVxKsnx5q25BGj/rGN+UIrsiDktzr+oJmOmT24+BK1KAy
+Nipk7fR06HdiR5uvYIasFtnNeTEblrUc7WCb1pUF2JZi5o2WNCgKt/T1vva
jWGSm8aEPpQaqWyuqKvzN4P8Slfej4VUqInzuOLyNRuY3M4qrDxEQj84bhxZ
CXWAWJWm85d5SUgyNWefor8r/DZUZ/D3WcHrbW4rj8xeBvec5ie3Opbws2fl
sVkaX+hxLUccaou4TSc/U96eW6AUxO4oFjOPY7mLpjfb74CTxEnvNNo5fPxG
yr2BnnAgBT6XwOxm8JzYoK8Rk9HggR05earkD3546vVDGal4KDc8upFBaAoH
XWNtY4tkuLTV/GyZ8wSeUZm26Q3DM5C6ITnsqPkbslxVRRdnmmG4+Bmd/7lu
WCrrs9s50AJ//DePXUjrg3ldKvB91QpqDzoq9AYGYU+hQIC4EgXuR9qfE8NG
QVHfQ8zJhwKMci2CqIYdNS5v43klX4j58fdXBJLYUYQxa9MITwX2marPV1Wa
DTX16sp6CjVgnVzXpEutWJFdeev0rhsdmHOdKi9nJBl9E7ZJaRPvx0qDBrkP
4yzouWq4aILhFLbjCe1dkQlmFIivVkYIr2CBlbMmhzYxI+4GvpBdzQwwdtT0
IZMmEwq+2vpHwZ4LHFWFj9pdZkReHQn2dB8F4O2W1i2ZSWv1E7M238EpDnVS
4pTqFnrUkRVmvm1aDsw7E1pfk+nRm+8nv2Q8UIL3UfT9Psp0iHrKbIISrg4i
zygXBhxpkXr7zp31Xw6CV80tvdRwGiTy4ea9yH1HoPdI/JPFT9RIs0BdeoPb
CbDZLew0PEmFBLiZvcznrOE1Z/ihqi1U6LuzYUP1s7PArO8cr2lIQnQ7tihE
SlyEjL1adwUHV/BdmVxTcwqXwCYmsLZfYxnf6/OJa7H7OmBZCVT9zxfx0m3Y
s4cf/eHdp4hjJUvzuFGpQu7S5hD4JvwmSPvcHO7wSrxKsfk+1LVt0zKun8EN
epLuKwZFgeNdb5G926bx8H12ivZ340BiPm3U9O4Uzhz17pm+YRJ8uudvy0OZ
wAVtxdlzq1JBWOExg/3VXyApNVF9I7sZNo66/biW1AXL9fYXSt+0wKG56GTf
2l5gCLj+k9a3FTQ30WyrERoEPvFCRCVAgQ72lQ9KliMALZrSW90oIFwwcFnd
gR3xmg3Spc0VYXKHv7E9eMCGeKuCi407azAjVQlB31JWdKbwoGjv7lbML6gn
lWGJjGg+/HRkE+rCkgev3/wlSUY2Oz49aXg7ijVm3Gw6asaCmu4t6lxnnsMa
7dxV3vkzoxS68S9jK9SgWRP++/sLJnTAuu3+7lJWuH1Ky6vxJyNieuz9eGMg
Dzwc7N1ayMyIrOpdtSxlRaCgceoApsaA0jxYFHtjpGB8s9MPMw96pMGh8ARP
UQAur4+VnxPp0D7lwb2ZXqqgreglX99AiwIeLCBy7QE4NCSWVrFMg8Ti3Qsc
cw5Dvv6SlZ8EDZJTvB6OJRyDFco5Zk5zauR/W5RC+8kCuE6XlIYGUqFhcbmB
R4JnQEk7eDYll4QqguMTBqLPw9HDXh7HSlZxa9JJlqJ5N+C1U/Xr41rBu0NL
fBzar0JAvYTrVq8lvEH9seRJiZtQGtMuG7KjB4bpbX96bWmFRPZkVSuffvhq
GvWwu7kVdrPnn63MHoIDXjN81/QpoMH3lZdLaAwkSeKRtbcoUBwSwfirlx1t
PhAo0RqQj/GEyb4vEWBH1aWmYyZPyzD7XTEnMw6wIdawbGlfum+Yl2ei3tsr
rChPnjV5ubYd+6UztG9LJhnd7s6q4C/oxdQRrURIKws6V3quwUx7EgsceZ7o
TWZBgmH6us2OS1izDudbUQVmNFLi6csaQg864d9/8lgyoeLwgTAtb05IuCf3
5F4EI5r5IDtw6BA/TOw4coylgAHZCnlObWIXA0bnDSfSx+mR3iWqYLUQWXBR
22TxXJIeTSyF/dntrQjfXg2YZByhQxofVmlevwbgbdbu3BlIizSZai83ZWqD
o+w5epeXNMiaHG+W62UEvy4Mas60UCMe0ViFB5ePg5LDLDctGzXq6E1XDdxv
DXdpG9o37qFCiTFF9LxF9lBsqqL0wpGEtFxVD5NoLgBbVoXBsNAqHsRTxFVh
7gmUoA47fs9lPFDykvmrn97g+JU5+ejPRbzgwn0lVSZ/+HOy8UvEjgW8k132
irV2MNAL/gjjiZ3DxTeJ/Aw6eh9y6R2OWTDM4udn1K/wf48Eu10RdM/NpnG2
oatlm8piobmmrm2leApXSryQe7UmEWzKY35/YpvEt9PA6U8KqRB3xzSqa8Mv
2BWw03DvvWZ47n9CZ25fF9x/KMPdH9kCbgrHloJsemE1W6Cj7GwrHDrJ3cpa
MADynk9t6ckUCKz58hMfHgaNjD2e2xwp8H1T6mlrP3ZEvZpf7TeIsBJ80/LX
12yofDnnhwd9NTbq1Dwz+oMVHedVfRDd0IzxDzFXzGxkRUK2pTy1XJ0Y9xnZ
Z8MaZNSwLD1WNjSMGXXG9YS7syD5jnHDqpIZbHvOJgOOJ8yI5uCRdMVRKog8
/AJ7X86E3u0QumQrTYbfcV+Kfs8xokPJV+JXHLmhGpt26RVnROOKorpeOsIw
3+vkFWvCgLBTFUd32GyDbdZmFntC6VGa3iW7n9U7QaxR0aC4gA7F3Z5Xkt++
F2z0LROWhmlRccZOe9ZJDcD4I3g5+GiRsVRujYidHmS86uDX20+Dqn85XU/P
PQpzs+8yWTyo0dzmj3Vv4syhNyrWJTWJClkab6zV1bGFjSpVd0brSSiU+VHK
YqgjlFpxpYksrOKfB/Rviam6gff3j5rvDq3g2jyv2AR7r8BSsQ/jsZdL+PL9
8MnlCF84IVv8iL66G5yPO9EV0rRCpY5V1FmufmCjn8t+X9wKykeqN7EYDAGT
r0mVrgYFBppj1eNej4IA7Wpyvh8FRtKSKTo9bOjN7rJwk+TPmHrT+OW7AYPA
Vvw4gyxFgT3GCvdf1YxATt3Mh64rFJCvefYheNMwtA/cEH93nAKx5jQTQffG
wJe179az22v1WuXi8oUpdmR8ncQmnZuH/TpoJGsjxY6WhgYeMk2WYkqHx8pO
G7EhIaa8VAefeqxcYle79C1WxP+hS/rOahv2iL7E6GkhGQ20ahWfZ+3FVto4
5aR6WNCiIPUrSvkE9mbjorQ0PwtqH94p0vdwEfNhSjgdDszoYTs5yHOQDmYy
H/vHOzChV3vPdHuwcEJunmKZWCIjSrmbwtEVyQcceaEX8ioYEPWrrfXOEaKQ
EhYSs2mZHs1rmC+mfpeByw4NW8QV6VFPNgSrTe+GXyptZPVTdGgjHen04DwG
D5yvCzQ/oEXYBwE9e0ltsLGk2H7Lo0FKbq5x2puNoH3lfox7NzXa4Omk/XnZ
FBJpugbvCVCjzYqyGj71VrCwPJWWd4AKJajLKxYY2UOC+RO/U1dIiOtHVYy1
jQugQUb5hr2reHosKap/0gMib4bs3BW2jAfTc6ksWnkD6ae6W/DCIn4x54SA
1Bs/iJT0DFg4tIBbNXzR1/8RBImbp8JXsufwrVlO6pc23AeZzUwWp7fO4tV2
hp0VAZHQSR8/2+E+jQfv/nhX1jYW5HLtvhl3TOEH9PW03ocmQs7vJOEHUpM4
1aejbdf7UiD74tlczeKfkBcbpXX8ejO4GejdUCJ3Qf7x6s87A1vg9lcFqVCZ
XpBuzbM9aN4Kul6C8q+D1upBizXXDloKmL3MdA/IGYYnkTq97+3W7qdyP9Px
sLXzQAp4KDkgLOzqXg+XQjak0c347qBoFfbxlpxt2iAr4qY2sVCVbsbsH8cf
dxFhRZzVkQYr4b8x41zBW0NHyEj5lx4n/cIQxrbyfETelwWNuDNfypSYwUzb
HFo/vmRGm6TqokzPU4EaWXlEtJEJ9bLZHD1lxwJh+XfsztExIe8zodvOdW6E
3nNLkdd2MSLy6JPhyx+EgPdietQhGwY0tvHAjF+1JJTerI9LfUSPPjdd/259
ZifIUk2ywxc6JLLxtz5HsApcpBiYRMzTIh9zNb4ztzUg783nIzkStOhAxLHo
umJdSP5heCXTgAY5ShnEHNU5CtOBFtTBvtRIXV3Z+QqbORjJBx7YmUmFvglG
sT//bQP+CsMmDzpIaHE0ireL7Aifdl8QKmUmIUx0ytmswxXkuFfFH9uu4JqG
jD10Llcgt0C60alsCff8kvV2QtcXts7lfNWM7QaKZQHp/kwL/OzdV3y+vQ92
86lbqeW2wl63pgsvBIZA+C35jakaBQrf+TZaXRqFqPM3Xub7UiDXusyof5IN
XTwIjOGUCkxjZv6rjPEgVFcFnRLfSgHmnbxiblEjwFGZQ5/hSQGF0Sx26Z4h
4J5/tfjemAIuewcC9I+PAb5Nz60zkALZo116i2IjUBqte+CwCwV45nJeNveO
gnP8henzARQ44354qZ9uFDK19wh/vUaBcu8tlqUVYxCj3FKxZe38aMDxc/bD
PDvqmt9Dw34sDytP+X1upzw76n3rWXQxrhRLOCHg/dGUDYl6UJ7rqdVjTje8
U+zvsKKmofbEoUdt2Ey3nJl9CRn9qvu61TW3B+tw4M2+MsSCjg4mdRwPmsC0
t4mNk0RYEFb3XYJfYREzduhWPqTNjKw1BNzVHtPBYfx6068LTMhukmcXeyMH
lBuonBhLY0S19/4IdqrxQeLy9usctQwIv9l0QNpEFNyEtD8Y0DAg0yvitToB
MrB0441Plyo9crpdFDSQvRt6V4/2h5yhQ1o5I8fHEzEwyuNVfh5Li0hzNIV6
3Vpwajo8IgDRoHYOt8vhbYZgpt2tnj1IjRTsndoKikyhue5Ek8lWalRYNL2P
2ssKsr1oyWRdKlQv96vlEJ89kE9926Z8g4T2nRt+u22DC/AFpSdqH1rFY3uM
WcVxD5i8bh2Dxy7j03qeD9uFvaGq19xMjHEJ1w6ZVUm95QdnwspOvzZZwB9I
b0k3Sg+CYQGfB274HJ45mD97te8e9EpQfnbtmMUT65p575pFQtLF5ItevtO4
XdlEeppCLJjJZtUsDU3h3fvPBW9xSQSLMQn1ZaVJfP9XakGZ4hS4GK95w//e
T+i9vKHbxKMZWt5qxppMdYL2pi/lpT4twCWYDPc4eyHfmjFq/FgrVDGLWvhc
GIBcjxk+WRIFSuOSP9o/HIbOYiWa07YUsI+fMFKOYkd93yy+TkshzL25KnNf
CRvK6U+01M2pxMQizPioJ1hRyXaVu8YtTRh5ulcoQ5IVsXkqBv4y/o1tX71Y
onicjExjTN5bpQ1hI3cyXX0DWVDzn+PRqZRpbHg0Ij7yLTMyPykrobadCjic
fEq/f2dC7qWf7MtpWaD7i9OHFyxM6IXTiaUjTzbCn+VVSe29jGgig1JfqicE
z3MOPn1yjgEtQPydcT9JiOAKLWh/Qo+S8U9jc/I7IXtT3cXlr3So5bbvMysV
Fbj8pEL+xyotuq026fnLWAMuLdu6BMrSopBrYzun3XQhwZPx2WkTGhS+JV7m
JtdR8KjNfFERSI3G1erZGz6bwa3lRdnZd1Qo46iQTORrG9ibuZTf001Cptds
i6RrHEBmT3JZPCcJUfleSXiQ5QpB2U+i2V1X8DtFiCNf4Qrw5JL2ztcv4Xdq
GzyMJX3htuXrQdub3UDvaUTqG2sBR8VXrc5FfZBeJ+rfm90KBdTf465RD8Fe
Dr58LRUKSKS6C2qYjcLVHHuV+BsUiP9oevfDPBvi8IuU8LlcgZUEriwuKQ8C
d3kcT5wgBTyEWVyOXR0BN7mBtjF3Crz1eae6UDUEYf4uuLARBVql2mt3qI7B
rtIFc5u1erK5oznqB+MIOAvW82g6UcC379lMbuUo5FGXicT7U6DWBrSrBtba
9eaUbL3W9itOHM/SXozBbTnHm8Nr+xPj8tCQ6xGj8KBf6lrpTQrQ6s3sPe8+
BuNRI00Ga+0vGYtt/lCPQRST8GbJtfONRaj0hs6uMRBmKzyhulaPeq/xTLct
saMq9hvSYVvzMOWjGfSPdrGjpEj8bOrFUuzbqZ3Hh06yofMKN0OjBeoxtD0p
KCCMFa2m5Wsmnm3DxBq7OyrKyShapmibQ1gPVpsl4JE4yoISB+P97RwmMM7s
XGMnMRYksyK8R211AVN7dDvlqQ4zUg9l2uHvSQdz2i4+1O5MiCOvbfvjXA44
zFeQdCyDEYVxPHl+mJMP+oUWadTqGZAvOzV9tZIotPaJHnSkZ0Bn0+cdL52U
AeyOcKYG0KMKl1gnpojdMGjDYZp1lg5JHRc9VO2BwQ4re23OBFr0YCdHD22J
FljsH03/UUKDsN1F3BdfGQL/YGhU/Qg1arpsbDv01BQufnhQmStOjc6EvpeL
NrACtry7mKI+FbojyKnxadkONH8OLab4kVDNgwtbvg05Q3nz/AmS4SquXObb
5pzqASLeepV0Sct4w1ut0GtU3pDl6FA7wbaE0004mNBe9IPqImcjRosF3PNQ
3EnPe0EQEXcg8mXZHF7ZxejTX3EPDsgUiaQqzeLWORzOwVqR4CsuLvs5cBqv
mpBK8+GPhfGzJlX1k1P4BXF7U9tTiSB/acAwe98kzjtXVxudmQK1u952br30
E5a3jGvUX2iGEPsiyZ7eTrg4Yt3IdK0FjpdRdDloe6Gxmc4QP9IK5KPibr02
AwAnqEIlVlrhyobHncdD1vbD2fw1cjYUWGaUMrB4yI5ainGXV8wI6w2I1E8t
Z0OZVHdlL1yvxE48vPhnx5+136df0dH6r5swqyQW2s/SrOhzocd48q7fmNmo
xKEYMzISbrFWu+Y6hLV/y971PJgFbRKZ1PF9O419uCJJIn1gRt9bosf8WKhg
IU5EXqljrf6YmltMNTLD/SOW1jVsTGgDp4DMBp+N4PX5puuLfYwoRGSPkROP
EIw380hXnWdAS8Lv9S6fkoT57456c8n06Jq7t4LXpp3wZyskWTTQoSOMAXwd
nCrgRR2QQE1Dh/JDso59U9YAk6dvvMfkaRG9mFrHST1deFx05lP+CRrEE2Rz
W3/WGHa5nST1BVOj9zdikvalmYFwt5KoWR4Vao38JqoSZQPRIwEjbP0kJMDA
ucX/lQPY5hY8ZOYmoYa1A1PLI1fYTTVu8OXyCn7RS7vhAPcV0Hw/5AStS3j5
HI/VY27ftTqz/cqURzcUbkwuCx1ugcz27q7Rt30Q2GjlrJjVCku67W+6pgfB
YUNi4Ic9FGjb7Hxg1+FReP58eSvDWj3icBKSFlpmQ/qctAz0Bysw2q8kLjuZ
QUAbqfTrNlNA6iHtA63zI4BfyXJnWatHf8o/HLHBh4B64Q7lqwEFQpOapoRl
x+Cjmswo/1o9qjepy69dGIbJMPMc5fMU2G2VJJBROAp6hanH5dbqkd935fOF
bSMQcWN+IPUqBXq6mKpj4scg7ZKGV/VavWHAbme6BIzC3j/BjBpr9SiveMzK
wm4Man768QustZ/2Lbjd82cURjD/laq1/RInnZhyQ9MYmNOQGHas1SPR7M50
TGcM3Ped/ZGy9nmu/eHxe5c3BoIZenEMa+2GDUvcXjfHQPGEc8r1tes95945
Oj4xBqNKtB811toJf0X6z4vwVwQT/opgwl8RTPgrgv/6q7/+6v/HXxH3D+Gv
CCb8FcGEvyKY8FcEE/6KYMJfEUz4q/Xx//FXBBP+imDCXxFM+CiC//qof9dH
RXa9zDRqeYuTnB8ej3xQDS/bWJSKDj1aX7/3SWE2kUfQOhP+iWDCPxFM+CSC
//qkf9cn0fAlJbnH5eNvnijrZJdUwVLjFLduVd76+hG+iOC/vuf/9j26Fq7X
zCUycFEvWcqhMzVw2VI/J04rfX3+CL9DMOF3CCZ8DcF/fc2/62vyd8Xx31r+
iPuSZPXFLarAqTdy+y/FYLw1m9/lcEwtlG6x+mRm9X59PQk/Q/Bfv/J/+5X2
z9lK4JmF++r1RbcuVkNaarrkyp/k9fkjfArBPK1BKmTD4HWWd601bySTUYSF
kYiG3jjWJnE9WNnmKX7AGTdpr65Z9ydEf8KfEEz4EIL/+pB/14fw7OdtCX2N
4+537jld21YF9NtdkkOHIvC+Kp0fDva1sK04kss2PWd9PQn/QfD8Q9rYZwZk
VGr5jmpQdvivv/iHv1Bu3jF1UCIbb/xScT6rohq8H2QWn3r0ZH3+CF9B8FCd
n3qy+dX/eR5l01zM+MmIGx2KR0ljWMT+y9S6pWn4YybxT2EPa9b9BNE/ZiRW
TFfqKk53TKdT/nMtWDwzibRXJKPg0m7ue9UjGOEjiP6EjyCY8AsE//UL/65f
6LR9wR98AOEBsd83vmarglF6dK59QzReySgTNa9fC2aRmWpna9+uryfhEwgm
fADBf33A//YBvRYuR6pXsvENn+/VJL6qhsgPlkvsro/X54/I/wmOKr5kUOvh
sM7aZK4rW0TISKIpZ9ek1Bg2avDnk7Hnc1zX8kaJo0/Net5P9H8sN5Gg0eOH
mxs2en3KrIXcW0XxUmpkNEmaa7M0H8GIfJ/or5agnHs98B4+jWPfv/vUgpvG
o6xMHTKqV+imFF0fxkYW03gEORxw50os8Omv2vV8nxhP5PsEE3k9wX/z+n83
rw+jU1XIuIrwxgIZyy9UVdD5p7+K5nkMrrm0/1PR/lpwXy48MmD9P883kc8T
TOTrBP/N1/93vr4vMdSX7fxbPLrWbntsYjUkftn9qL89dn3+iDyd4KDyhboT
Qmbr7LFYseQjRkauHw/qvRodxR43KWxp0U/HY5U2hJx0rVnPz4n+AcwH7MJZ
A3Fe831nbz2thV6Py1vvABmdlMjaYCU6ghF5OdGfa58W2B8Px72rGA4mu9VC
4k5DRU59MtJo5blvcnAYq1CcjXnZ6oZPpz6Uc2ysXc/LifEvWpQv7jD5n/U/
l4q96bt6A/f25U+dLaiF/3wfXN+BX3v/cO16Xk70P1L9RJOpt14V6XQdfzZX
C//cz/3z+v+cn39en/g/ywXz/x7fji3QSwmd0W5QPfz/2j+tX/+f4wn+L+tj
jO8=
        "], {{{}, {}, {}, 
          {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
           GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwV1EVsVVEUBdDfFinu7lpsgrs7Ce6eAAPc3Ulw9wEEBrhbS3F390CAAe7u
DJB1B6v7vP1Omqb/tAV6DGo1MDoSiURRxpepHuJiIpFi5OWh55xylcwj78os
som8T3bzFHmI39z2PXrJldwhk/elZHeWc520ut/2spkbM5mD/OKW/iY3uM41
rnKFy1ziIr/Iar8RkzjATy7of5LF3JCJ7OcH5/U/yGxuwAT28Z1z+u9kMtdn
PIl846z+GxnN9RjHXr5yRv+VDOa6jCWBL5zWfyG9uQ5jiOczp/QlZTeWcY00
fi+f9enMtRnNHj5xUl9CdmUpV0lt/5M+rbkWo9jNR07oi8suLOEKqex/1Kcx
12Qku/jAcX0x2ZnFXCal/Q/61OYajGAn7zmmj5OdWMQlUth/r09lrs5wdvCO
o/qisiMLuUis/Xf6lOZqDGM7bzmiLyI7sCB8riS3/1afwlyVoWzjDYf1hWV7
5ofPmmT23+hjzVUYwlZeh3vVF5LtmBc+f5Laf61Pbq7MYLbwKtynvqBsy9xw
EySx/0qfzFyJQWzmZbhHfQHZhjnhToix/1Kf1FyR8Ie3iRfhRvX5ZWtmh9sh
2v4LfRJzBQawkefs0+eTrZgV7oko+8/1Meby9GcDz0jU55UtmRnuiYj9Z/po
czn6sZ6n7NXnkS2YEe6Jf+GdPkqWpS/reEKCPrdszvRwT/wN78I/FlmGPqzl
MfH6XLIZ08I98Se80/+jtLk3a3jEHl1PuYLbZPSz55SruUdWz03lA3KY/wMJ
nqL+
             "]]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
          {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1FWYkFUUBdCR7u4euru7O4duREVEAVHptosw6FQ6lTAJFbAlBASUsDBA
wCAVFNd5WPPvs+GDh7shcfDIpBF3JCQkbPIjvoP8yM1h+QW6U41HdXW4Im9j
LMm4U5eHI/KL9GCxuyuZ2O+uzmNyXa7K2xlHcgbr8nJUfome1OBxXT2uyW8w
nhTcpcvHV/LL9KImT+jqc11+kwmk5G5dfo7Jc+hNLZ7UNeCG/BYTScU9ugIc
l+fSh9o8pWvI3/LbTCI1Q3QFOSHPoy91eFrXiH/kd5hMGu7VFeJreT79qMsz
usbclN9lCmkZqivMN/IC+lOPZ3VNuCXvYCrpuE9XhJPyQgZQn+d0TflX3sk0
0jNMl8gpeREDacDzumb8J+9iOhm4X1eU0/HOsRcaMkPXnNvy7tgLGXlAV4wz
8pLYC42YqWsRg+O92AeZGO4uzrfy0tgHjZmlaxkb5f3YB5mJ8ZbgO3lZ7IMm
zNa1IhkfxD7Iwkh3Sb6Xl8c+aBpb17UmOXtiH2TlQXcpfpBfiX3QLLaua0MK
9sY+yMYod2l+lF+NfdA8tq1rS0r2xT7IzkPuMpyVV8Q+aBHb1rUjFR/GPsjB
w+6y/CSvjH3QMrata09qPop9kJNH3OX4WV4V+6BVbFvXgTR8HPsgF6Pd5flF
Xh37oHVsW9eRtHwS+yA3Y9wV+FVeE/ugDXkYq6/IOXltbIG25GWcvhLn5XXx
7rQjH+P1lflNXh9vTHvyM0FfhQvyhnhPOlCAifqqXJQ3xtvRkYJM0lfjkrwp
3olOFKIwRUikKMUoTglKUorS8Xv8h1XGtyzlKE8FJvtzq/O7vDnelM5UZIq+
Bn/Ir8X70YX5uk6k41P3DCox1V2TP+XX4/1IYoGuM+n5zD2Tykxz1+IveUu8
H0vc3cjMAXdXFspdyMDn7lksk3uQlUPuKkyXa3NZ3hqbl3uRnTHupb7dycLB
2KxvH3LG3+le5JtERlbRjy/i34Jvb3KwhgHM1i/37ck6srGa/mzgy9i4b1/W
k4u1DGRjvLVf/x8x2bzQ
            "]]}, 
          {Hue[0.9060679774997897, 0.6, 0.6], 
           LineBox[{429, 734, 672, 614, 559, 509, 479, 430, 431, 432, 433, 
            735, 673, 615, 560, 510, 480, 764, 702, 796}], 
           LineBox[CompressedData["
1:eJwV0kVM13EcBuA/oGJ3N3Yd7O7Wze7e1IPd3W5290GnB7sbuwVBBBOnUw8q
dnccjOd3eHhfXj5sf9g3qv/IjiPCQqFQRV/mhIdC+SJCoYeyDbn1+3IT+cnu
+2S5ngEc9juP5WYGUYl/tif80c8zl7YU4EjwM7mFwVQmxFP7X3mBebSjIEft
T+VWhlCFMFLs/+RF5tOeQkTbU+Q2hlKVcJ4Ff6DPfklfQAcKc8z+TG5nGNWI
4Lk9zP1lfSEdKcJx+3O5g+FUJxUv7OHuY/RFdKIoJ+wv5E5GUIPUvLRHuI/V
F9OZKE7aX8pdjKQmaXhlT+X+ir6ELhTjlP2V3M0oahHJa3tq93H6UrpSnNP2
13IPo6lNWt7Y07iP15fRjRKcsb+RexlDHdLx1h7p/qq+nO6U5Kz9rdzHWOqS
nnf2tO4T9BX0oBTn7O/kfsZRjwy8t6dzf01fSU9KB+/J/l4eYDz1ycgHe3r3
ifoqelEmeE/2D/IgE2hAJj7aM7hP0lfTm7LBe7J/lIeYSEMy88me0f11fQ19
KMcl+yd5mEk0Iguf7Znc39DX0pfyXLZ/lkeYTGOy8sUewxf9KFNoQja+2mP5
qkczlaZk55v9Ct/0Y0yjGTn4bo/ju36c6TQnJz/s8fwI3igzaEEuftqv8jN4
j8ykJbn5ZU/gGokkcZ0b3OQWt7nDr+B9MotW5OG3PbP/y019Hf2oEHxe2125
gYEku/sdvFdmk9fPH8jWwWfU78lCcqPMLx/JwvI/E6iipQ==
            "]], 
           LineBox[{785, 723, 665, 610, 506, 783, 721, 663, 608, 557, 469, 
            762, 700, 642, 587, 536, 507, 470, 471, 472, 473, 474, 475, 476, 
            477, 763, 701, 643, 588, 537, 508, 784, 722, 664, 609, 558, 788, 
            726, 668, 613, 791, 729, 671, 795, 733, 799, 478}]}, 
          {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{802, 805, 801}], 
           LineBox[{804, 806, 803}]}}, {{}, {}, {}, {}}}],
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->True,
       AxesLabel->{
         FormBox["t", TraditionalForm], 
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(i\\)]\\)(t)\"", 
          TraditionalForm]},
       AxesOrigin->{0, 0},
       Epilog->{{
          GrayLevel[0], 
          InsetBox[
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SuperscriptBox[\\(\[Chi]\\), \
\\(*\\)]\\)\[TildeTilde].158\"", FontSize -> 12, StripOnInput -> False], 
            TraditionalForm], {-0.35, 0.08}, {0, 0}]}},
       LabelStyle->Directive[FontSize -> 16],
       Method->{"AxesInFront" -> True},
       PlotLabel->FormBox[
         StyleBox[
         "\"(i)  \[Alpha]=0 and \\!\\(\\*SubscriptBox[\\n StyleBox[\\\"t\\\",\
\\nFontSlant->\\\"Italic\\\"], \\\"i\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"\[Tilde]\
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"N\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"(\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"1\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\\!\\(\\*\\nStyleBox[\\\",\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\\
nStyleBox[\\\"1\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\")\
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\"", FontSize -> 16, StripOnInput -> 
          False], TraditionalForm],
       PlotRange->{{-4, 1}, {0, 0.5}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], Automatic},
       Ticks->{{{-3.54, 
           FormBox[
           "\"\\!\\(\\*SuperscriptBox[\\(t\\), \
\\(*\\)]\\)\[TildeTilde]-3.54\"", TraditionalForm]}, {0, 
           FormBox[
           "\"\\!\\(\\*SuperscriptBox[\\(t\\), \\(\[Degree]\\)]\\)=0\"", 
            TraditionalForm]}}, {{0, 
           FormBox["0", TraditionalForm]}}}], {185, -148.74611797498108`}, 
      ImageScaled[{0.5, 0.5}], {360, 222.49223594996215`}], InsetBox[
      GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJzVmfk7Vd0b8I95HotIGTJFFIqI9u0RylQiKhQRRchcSTIllGSsSCFTeoqk
MtVeZChTZg4i8zxnnl7f93p3ruv5D97zg3N9rrXX7ex77XOfte6PkOV1A2tK
Eol0YfPP/97vDOrNbGywoSO/tY/YTedibyhck0mH2VDDuRjVA5olGI31cTne
C6zowxxf066VWmxba6l9UjgLOmbuY/+vfDtm8C3WSqKCGR0P4s1+d7kf+7LA
r/B9mgk9WczekaY9jXUo631sEWdCj64cDsytWsbEf0iyb+gyolxH2kdMp2jg
Vc1FcREPBkR9Y+6iYTw7NPSqjOa9pUda2nTLa/08cECtIuRKIx0yC/L3iuUR
BsiiaLnHQIceyL/Y0bVfCnxiwroS1WjRRHBz/3nnQzBeWvWtyY4G9TG6i/We
wICVJueMZyI16m6ozRlL1ADTUO0ihXIq5JsxtfLg7ikghx4emZqiRKK7zB5i
gcbA9KIG55OgRHweac4WwuZgu7Dd+aI+BXo0/m+UQY813Lag+ckRSELVmv6B
r0scwEVUmyPfaAPP/IIN1T9wA31PhTWdtDVcVaReSannNsRMeKjhXKv4vMu2
S7dM/ODQHBdYWi7j6T2hOu/dg0CJjyF6oHIRb00+4+6cHgYJsq+tbI4u4Pss
NVqfykSBRVvaMFfoHF7RstR5lTIW7ictf09dmsWXWA8qfjyZADRrb8yvqM/g
cvUc/qzxyTBwnPG68JMp/NtjUu+P9Ndw4fKtTF+WCbz37dRIqUQmvLgQN8n3
egS3DRDhLKL7AJnR1j03vQdxI/HFyv05nyDgXXBZlVUfrqNLdyO3MB8Yxux4
fWi6cUYvLRqeJzgU1A4dHStqxyV6B1KuaxRDCaeH2JPpRjw4uDJ2RaIUWpLT
hh5JVOPvluMlPtJ9B6W0Cq3KTISrZqot9v+pgJYejgP7VJ7hOqcKBULka+Ch
TYXNtdls0NDzqrVIrAVx9lwOV4lyONmymPHun3pYyTltlKFbD6G4I4/hjwZQ
7/Mo5Apvhey7mX6H+ZtAukJIs9isC+4PCFNrX2sGFV7so1tbD0wJNo3r3GiB
5/YcxuHz/TDY6igUcrIVdOPEg04aD4POLledXautIP0gmk7LawwMHO7jCxZk
mI0//GNjYxL2KTQe1AgiQ5SbhY5PHBtibFnVwlpw7NzBC6PMFazI1fndyIZm
BfbwReDPCwssaDj2gXrEvSYsW09mqF+aBYkXmfHGbe/Ggn51VC1eYEZfJ7dv
W1AZxap4P839fMiEAikMlGND5zA/ykLLa/mM6MOSGVCMkaC/siQuvJsBZRkE
HXdKYQRlsh7DJAcD0sQdm2gvbAeKSKoC9n/oUWFejJRtNz8cXurPmnekQ267
hFfkjoiDxasT7dtSadHg1I4c/nUZUNj/rq6gmQaZ/Dq+Hj2iCN7Wqsx7aWnQ
oQQ3lwF+NTiktRFy7hA16r9VzjsnrA2xLEVN28yoUKXPJYujHQYww0VlRBtK
iZR2ldfW+ptAfoUzz5dCCtTEcVZ+7bYlzOxjEVQcJaFf7HdPr4faQqxS07Ub
PCQknpJzVN7fGbpPqdL5e6/jdZb3FccXboBrTvPLe52r+JUrMtgClQ/0O5ch
dpUV3LJnJ0Pe4XugEMRmJ/JkCcdyV4x9Ox6Avdh5r1TqRXzqbnLYcH84kALT
xTDreTwnNuhnxEwMuGGnz1/89gfXnX33VEoiHspOGW6nE5jFQdtA08AsCTz2
mF4pdZjGMypSd7ynSwOJu+JjdurdkOWsLLwy3wxjxWk0/lf7YLV00Fp2uAX+
+O+avJ46CEvaFODzthVUIjvLdYZH4HAhX4CoAhkeR9lcFcEmQF7PTcTemwz0
+1v4UTUbalzby/1WphDz2zlUHkhiQxEGLE3j3OXYd4pBH2VJVtQ0oC3tLtCA
9XDeliwxZ0HWZa1zB+92Yg61yjwcUcyoXtAyuV10CCsJGuHSxZlQunK48ItT
s9iBl9QPhaYZUSC+UREhuI4FViwYndjBiLgaeEMONtPBpKHxUwZ1BhR8q/WP
nA0n2CkLGlrfoEeenS9saL7wwYfdrbszEzfrJ2ZheoBDFGolRMlVLbSoM+uR
6d65/WDa86L1HTMtet92/kdGpAJ8iqYd8lakQZSzJtPkcFUQSiNfH7ajRqod
srJ1P46DZ/U9nZRwKiT02Tcs6uhpGDgd/3LlKyVSL1CV3OZyDiwPCdqPzVAg
Pi5GT9NFC3jHEX6icjcFanM41VCVdgUY9Rzi1U+REM2B3XJRYk6QcUTjIf/I
On4wk3N2Uc4DLJ8E1gypreFHvL9yrvTdASzrBcVQ+gpeshdLe/rFHz5+jTjz
bXUJ1y+Ry13dFQL1gu+DNK8u4rZvRSvlmx9DbfteDYO6efxkf+Jj+aBosHvo
JXRk7xweftRa3uZhHIgtpU4YP5zFGaM/pumdSoSvYf5W3ORpnN9KlC23MgUE
5Z7T2dz6DeIS01V3s5th+4TLr9uJvbBWZ3O95H0LnFiMSfKpGQC6gDtd1D6t
oL6Dam+1wAjwihYiCj4ydLKtf1a4MA7Qoi65x4UMggXDN1Rt2RCPyQhN6mIR
tl+3njUykhXxVAYXG/RUY/rKYvw+JSzocuFx4YFDrZhfUH8K3SozovrcZccq
0Isljdzx/S3OjCwPfH3Z8GECa8zwbTI0YUJNYStadxgXsUZrV6WP/owomWbq
x+Q6JahXh3e3vWFAxyzaHx8qYYH7FzU8G7voEcNzr+fbA7nh6cjAnkJGemRe
56xxQVoIChpnj2EqdCjVjUl+4IkETO2y/2XiRovU2OVe4slywOn5peJ7Ag06
qjhyJNNTGTTlPWXqGqhRQOQyYq45BidGRVLL16iQSLxrgV2OLuTrrZr7iVGh
/fJ3wrEXZ2CdfJWRw5QS+d8XJlN/NQPOS99KQgMp0Jjo/uFn/JdBQTN4ITmX
hMqD418Mx1wDQ11PtzPfNnAL0nmmoiUX4LFW9hvkXMf7Qr9523bcgoA6Mec9
nqt4g+pz8fNivlDypEM65EA/jNFadXnuboUEtiRlc+8h+Gkc/bSvuRUOseVf
qcgehWOe87y39cigxvuTh1NgEsRJolE198hQHBJB/3uADe06FijWGpCPcT+S
/vSNjw1VlRhPGr0qxWwOPjmfcYwVsTzKlvShqcc83RN0PtxkQXkyLElrNR3Y
b63Ro7szmdH9vqzynQUDmCqiFgtpZUJXS642mGjOYIHj6QlezEyI/5GedrPd
KtasxfFBWI4RjX9z92EJoQWt8LYu7gsMqDh8+JGGFwe8CNv/MiyCHs1/lh4+
cWInTB84fYapgA5ZCbjP7mATAXqHbedeT9EiHQ+KYJUQaXBU2WGWLk6Lplcf
/TnkJQ/1b4eNMk7TILXPG1Tv3gHwNGv2yAZSI3WGmhtNmZpgJ32V1vFfKmTB
HG+S66kPv6+PqM+3UCJu4Vi5yBtnQcF2gYualRJ1DrxWDvzHAh5SN3RsP0yB
Ep4U0fIU2UCxsZLCGzsS0nBW1iVRXQfWrPKTYwIbeBB3EWe5qTuQgzqtd7qv
4YHiHqZvu7zA7idjkmHXCl5w/bGCMoM//Dnf+CPiwDLewyZ900IzGGj5fz3i
jl3ERXcIdQUZPoZcWtszZnQL+LV51Zs726LA+mAETbrJHM46eqt0R2ksNFfX
tq8Xz+IKCddzb1UngGXZk+6vrDP4Piq49FUuBeIeGEf3bvsNBwNkTx0Ja4Z0
/3Nai0d74fFTKa6hqBZwkTuzGmQ5ABvZfJ2lV1rhxHmuVpaCYZBxf2VFy0yG
wOofXfjYGKhlHHbfa0eGth0plyz82BDlRn6V3wjCvuE71n6+Y0Vlazm/3Gir
sAn75vmJXyzoLI9yZExDM7ZzlLF8fjsLErAq4a7h7MG4Lkunjakxo4Y1ycnS
0TFMvyeuP9yVCcl0Tp2q/DaP7cvZcZL9JSOiOn76tfwEBUTpvsE+lTGgjwcE
PKwkmaE77kdR9yI9OpF0M37djguqsDnHAVF6NCUvrO2pJQhLA/aesUZ0CLtY
bnjAci/stTAxOxxKi1J1PKy7qmRBpFH+ZHEBDYq7v6Qgs+8IWOpdeLE6Ro2K
M2RtWGbUANsZwcPOS40MJHKrhax1IONt506df6hQ1W/7O69zDWFx4WMmkxsl
Wtz1pfZ9nCkMRMc6piRSoAsG22u0taxgu1Llg4k6EgplfJa8EmoHJeacqULL
G/j3Yb17Isou4NX2Rf3jiXVck/stK//ATVgt9qY/8+8qvvY4fGYtwgfOSRc/
o63qA4ez9jSFVK1QoWUefYVzCFhpF7M/FbeC4umqHUwnR4HBx6hSW40Mw82x
qnHvJoCPeiMp348M46lJZK1+VvT+UGm4UdJ3TLVp6sbDgBFgLX6ewSxBhsMG
co/fVo9DTu38596bZJCpTvscvGMMOobvin48S4ZYU6rpoLBJ8GEZvJd2f7Ne
KzmtXZ9lQwZ3SKySuXnY7+P60pYSbGh1dPgpw0wJpqA7WXpJnxUJMOSl2HrX
YWViBzsk77GgnZ97JR9stGPPaL/pvypkRsOtGsXXWAaw9XaO/RL9TGiFn/It
uWwae799RVJyJxPqGJMVGny6gnkzvLgUDozoaQdzkPsIDcxnPvePt2VAb49c
7nNj4oDcPPlSkQR6lPwwmb03ihfY80Kv55XTIcq3e+ocIoQh+VHIkx1rtGhJ
zXQlpU0Kbtg27BaVp0X92RCsMncIfiu1M6tepEHbaUiXRpYwiHS4w9ccSY2w
z3w6NuKaYHmBbFWfR4UUXJzjNHfpQ8f64yeufZRom7u95vc1Y0ig6h0J46NE
u+Sl1bzrzGF5bTY17xgFeqEqI1+gbwMvTF/6XbxJQpy/Kp9YWDoCGqGXaTiy
gb+OJUUPzbhBlG+I7MFHa3gwLafSirkXkLpUXYKXV3CnnHN8Eu/9IErcPWD5
xDJu3vBDT+9XECTsmg1fz17E92TZq3psewxSuxjMLu1ZwKusT/WUB0RBD238
QqfrHB586MtDaatY2J9rXW/QOYsf09PR+BSaADndiYKREjM4xVfD9juDyZDt
dCVXvbgL8mKjNc7eaQaXkzp3FZh7If9s1XfZwBa4/1NOIlRqACRb86yOm7aC
tie/zLugzXrQYsF5gJoMJv9mugbkjMHLKK2BT9abz1OZn/HUo83zQDK4Kdgi
7NGtI26OhaxIrY/+43HhSuzLvf1WqSMsiIvSyExZshmzeR5/1lGIBXFURZ1c
D+/GagRp8l30mVH74+nDuhxjGOt6+riMDxMad2X0yBSbx4zbbVu//MuIdkjU
RhtfowAVZsVx4UYGNMBqaXjRmgke5T+wvkrDgLwuh+692rMdBq6uRt0+SI+Y
J16O3fgsADxOr6NPWNKhye3H5v2qxKHEty4u5Rkt+t50p83isixIU8ywwQ8a
JLS9W489WAmcyCeNIpaokbepCu/l+2qQ9/776RwxanQs4kxMbbE2JP06dTPz
JBWykzj5xFDLEOYCzSiDfSiRqqqiw01WU9CXCTwmm0mB6vmj2dK7LcFfbswo
spOEViaieXqZ7eDroesCJYwkhAnPOph0OsN+rg3R51bruPop+n4ax5uQWyDZ
aF+6irv/yPowre0DexZzfqrH9gH5QgHp8XwLdA0cLb7WMQiHeFXNVXJb4YhL
0/U3fKMg+IH5vbEKGQo/+jSae0xA9LW7/+b7kCHXolR/aIYVOR0H+nByOaY2
v/RTymAEqiqDLoruIQOjLI+IS/Q4sFfk0Ga4k0FuIotNsn8UuJbernwyIIPj
keEAvbOTgO/VcekJJEP2RK/Oisg4lMRoH9N1JAP3Ys6/zQMT4BB/fe5aABku
u+quDtFMQKbmYcGft8lQ5rX7Qkn5JDxRbCnfvXl+PMnetfB5iQ31Lh2mYjuT
h5Uld1+VlWFDAx/ci5ziSrAX5/i8vhizImE3crqOSh1mf9cr2eYBC2oa7UgY
fdaOzfftN7H5xox+1/7c45zbj3Xa8mTfHGVChiOJnWeDpjHNvSJTJCEmhNW2
ie2UW8EMbPsUT2gyIgs1PleV5zSgi99p+n2dAVnPcB9ka2SHspNK5yZT6VFN
2B/+HhVeSFjbd4e9hg7hvk3HJI2EwUVA8/NJKjpkfFO0RitAClbvvvfuVaZF
9veLgoazD8HAhuFQyGUapJEzfnYqAQP9PB7F9FhqRFqkKtTp04CLc+ERAYgK
dbC73AhvPwUmmn2q2SOUSM7Gvr2gyBiaa881Ge2hRIVFc0cpPc0h25OamVmb
AtXt/91ygtcGmC/W71W8S0JHr4592LvNEXiDXidontjAY/sNWERxN5i5Y/EE
j13D53Tcn3YIekHlgKmJCP0qrhmyoJRyzw8uPyq99M5oGY+U3P1a/3UQjPF5
R7rgi3jmSP7CrcEwGBAjd/UeWMATapt5HppEQaJTkpOnzxxuXTr9OlUuFkyk
s6pXR2fxvn+uBu92TACzSTHVNYUZ/J+flPxSxcngFK9+1z+sCwZubOszcmuG
lg/qsUazPaC540dZiXcLcPInQRjHAORb0EdPnWmFSkZhM+/rw5DrNs8rTSJD
SVzSF5unY9BTrEB1yYoMNvHT+orRbGiw3uznnATCXJsrM49+Y0U5QwkXtHMq
MJEIE17KaRb0bZ/SQ4OWJox5bkAgQ5wFsbrLB/426Mb2bTh9kz/LjIyfGH0y
Tx3Fxh9kOvsEMqHmP2djUshz2NhERHzUB0Zkel5aTGUfBbDbe5e0tTEg15Kv
NmXUTND3w/7zGyYG9Mb+3Orpl9vhz9qGuOYRejSdQa4r0RGA9Jzjr15epUPL
EP9gyk8cIjhDCzpe0qIk/OvkoowsZO+odVr7SYNa7vukmSspwY2X5TK/NqjR
fZUZ998GauCxZuUYKE2NQm5Pys65aMMLd/q0S0ZUKHx3vJQvpyG41WS+KQ+k
RFMqdWwN303g3tqK9MJHCpRhKCAV9c4SjmSu5vf3kZDxbasiyWpbkDqcVBrP
QUIUPjdfRGY5Q1D2yxg253X8QRFiz5e7Cdy5pCNLdav4g5oGNwNxH7h/4d2I
lW8f0LrrkwYnW8BO/m2rQ9EgvK4V9h/IboUCyra425SjcISdN19DiQxiKa78
aiYTcCvHRin+Lhnivxg//LzEitj9osS8b5Rj3wLXV1YVR4CrLI47jp8MboJM
jmdujYPL/uH2SVcyfPD+qLxcOQqP/B1xQX0ytEp01BxQnoSDJcumlpv1ZFdn
c/Qv+nFw4K/jVrcng89g2nxuxQTkUZYKxfuTocYSNCuHN8d1FhWsPDf3K/bs
aalvJuH+fjvfsc39iUFZaMidiAmIHJK4XeJLBmqd+SPXXCdhKnq86eTm+L/0
xZZ/KCchmkFwl/jm+cYsVHJbT+8kCLIWnlPerEcDt7nn2lfZUCXbXclHe/Iw
RcMM2mcH2VBiFH4lxakEq78oe3b0PCu6JucbGsNXh6F9iUEBj1jQRmq+esKV
dkyksa+zvIwZxUgV7bV91I/VZPG5JUwwoYSReH9r22mMIzvXwF6ECUmtCx5W
2VjGVJ7dT36lxYhUQxkO+LvTwKKmozelKwNiz2vf9zyXHXR5CxLPZNCjR+wv
03U5eGFIYIVKpY4O+bBR0lYpCEProPBxO1o6dOX1kp3HeSnAHghmqgEtKneM
tWeIOAQjluzGWVdokMRZ4RNVbhgcMLfR5HhBjSJl2fupv2mA2T8Tr399o0LY
oSIup7enYOdIaHTdOCVqumFgNfrKGJw+R1bkilKiy6Gf9secNAfWvIeYvB4F
esDPofZ1zRrUu0ZXkv1IqDry+u76UQcoa146Rzq1gSuW+rQ7pLiBkJdOBU3i
Gt7wQSP0NoUXZNnZ1kyzruI007ZG1E5+UFXkoE9vtoy7n4g77x4WBBFxx6L+
LV3EK3rpvYfKw+CYVJFQisICbpHD7hCsEQU+oqLS3wPn8MppiVTvnbEwdcWo
sm5mFr8uamNsdTEBZDyGT2UfncF5FmtrYjKToebgh549Hl2wtntKre56M4TY
FIn3D/SA07hFI8PtFjhbStZmpx6AxmaaU/jpVmA2FHUZsBwGOEcRKrbeCje3
Pe85G7K5H87eWb3fkgxr9BInzZ6yoZZi3PEtI8IGAqL0UspYUSbFQ+nrdyqw
c0+d/hz4s/n79DsmRu9dE2aeyET9XZIFfS90m0o62I2ZTIideGLCjARbLFRu
O49iHfXZB9ODmdAOoRktnw9z2Oeb4iTSZ0bU1hIz6cdEActxQjIKnZv1x9jU
bLaRER6fvmBRzcqAtnHwSW3z3g6e332d3xylRyFCh/XtuQVgqplbsvIaHVoV
/KRz46I4LLXZ6Swm0aLbrl5ynjtk4c8eSDRroEGn6QN4OzmUwJMy4AUlFQ3K
D8k6U6+oBkav3ntNylAjWhGVzvM62vC86PLX/HNUiDvI8r7eggEcdDlPGgym
RJ/uPkk8mmoCgn0KwiZ5FKg1ql5YKdoSYsYDxlmHSIiPjmO3/1tbsMoteMrI
RUINmwemlmfOcIhi6uSPG+u4k6dmwzGum6D+adQeWlfxskVu8+dcPpt1Zt/N
Wbc+KNyeVBo61gKZHX29Ex8GIbDR3EE+qxVWtTve986NgO22hMDPh8nQvsvh
2EHdCUhPX9tDt1mP2O0FJAXWWJEeBzUd7fFyjPonidNaagTQdgq92l1kkHhK
HalxbRzwm1muTJv16E/Z59OW+ChQLj8g/zxJhtDEpllB6Un4oiI1sXOzHtUZ
1ebXLI/BzCPTHMVrZDhknsiXUTgBOoUpZ/dv1iO/NsVrhe3jEHF3aTjlFhn6
exmqnsRPQqqHmmfVZr2hw+5nOgZMwJE/wfRqm/Uor3jS3Mx6Eqq7/HbybY5f
8im43/9nAsYx//XKzf0SB42IYkPTJJhSkegObNYj4eye15jWJLgevfIrefPz
3P7D7fcxbxL4M3Ti6DbHTzWscnn6ToL8OYfkO5vx0rlkJ6amJ2FCgfqL2uY4
4a9I/+9F+CuCCX9FMOGvCCb8FcGEvyKY8FcEE/6KYMJfEUz4K4IJf0Uw4a8I
JvwVwYS/IpjwVwQT/opgwl8RTPgrggl/RTDhrwgm/BXBhL8imPBXBBP+imDC
XxFM+CuCCX9FMOGvCCb8FcGEvyKY8FcEE/6KYMJfEfz/q78iPj/hrwgm/BXB
hL8imPBXBBP+imDCXxGceotkW7Ft+G++dibdaNwz3f+XNfWWr6fm9OCPg/Pa
z+z8Agm6ffS/HZuANuR2usaNRlA8q0sxNt/+Nz7hUwgm/AjBhB8hOGlUT8q1
c+v/98U5tld/HvjL/Wv/xCk97MWlXu9cjRosgBoS34HSXw0Q+dEmh0+oEb7G
d3eS1NtAhN9H19G96W+/nphP9N8JzqD7kCKkNfQ3/ql0n+obkv34n2+xo+ey
8sDl6due5Y1miFGxuZhZ2QjZ7J+FW17/+juf6BcTTPSLCU5I/hNafmzreazg
GbkozLf1PB5q7pehWuzFY0surO49XQB9JgrFh7kaYDBlTcB2rgEo/vlX74Ed
GT66+QkJaTf97V8S84l+JMHp6Dydx7ut+zkkuqpfHdqP02H6Oz9J5UHwzHd3
h8PN8NEKknISG2Hug2/EpdqOv/OJ/hnBG/yzZ2+e2cr/7WVuJ4/dW+trt49G
e095H94+WXErUz7/b7+MGCf6ZQQLUHz/6uyxlQ+VljTBGt2tfJgVf14ZlO7D
g5diRd7TFsAUXQnTdFY93G1iPG7X1QBJERz3atdawVA5KBQONf3t3xDziX4M
weK7pRUFu7fykdabx3kT38wHOcM5aDQXol4a42INTRD40dTuwcNGiKEZ/JFq
tZUPon9AsMuvLF7hwK187NL1SivIavs73jFczFS92Ief/pJcUz2T97dfQIxb
TGpya7aQ4YXUhaft5k1QbIOF7THrx7Pfpi3qO+bBQwv5mOo9W/Hb0t8ryoZs
5ZvoHxBM9A8Ivpgp21IWtpVfj0+Bvq+st/LrlCt4qe1EH54vxtOX3J0PHp0h
WdXe9VAmu/7+UmMDuCqXCLqWt8JbCNVVlWj6e54l5hPnU4JtKmP03Ze38lt7
+bIxxe+terHTY/dlqsQmuGenzznm2whX3j2z1pLeyi9xniL4TWGY5+KLrfsv
LxepVXFvg7Oru6tE7zYB949E+ySOfpzp4/2ie3V5f89PxPUyT5feDyWQYf30
tDaVUROsaOyeWnDrxzXjivvc9fKgDLYvJClvxc84fbmxwXArv8R5imBH6vb3
San9eOD62XgO5jzQffWDiXdwa73DNKM8X7G0wW4DnrnXdk1g6Gssv8iwFZ84
XxFMnK8I9g60sXJ+vrVenGLzsqwuW+vlebAp0tC4D/dxe5It+TMfcrUmKAut
66H7n1yR9poG6AiLd1T/txVQl/2OL8JNf/f7xHxi/05wYFJlhwDdVn29I0cv
ktu3tV4Xun0+Td9vApOYyK/PvBqhltL1w07OrfUi9psEn5DakLR6s3W/xlr0
4QfM22AfTWlmlefm91ORYzcLfz/O99F0chTl/d1fEtc/HavfyPufZ1txdIo8
1QRPPz5MsPTtx+XP8cZwHs0Dy0z/NJYTW/E5U4/uSVHcWi9iv0kwo5u2JcuH
ftxgx+74Hyu5kLOQdH6kcmu9FmMdvrvNkMH8GB+tunUTTE2V9ltyb8Un9p9/
49lFrnWX9uN+VRGfRHtzwehLme/t11vxiP0mwQ6DK6+n6/vxc0/LzrzryoWw
4rm9ZmFtIPEnIHp48/n97/z/xv/v9+e/zz8R//b/vT79b/wvS/8bLwUi3n/n
E/x/ANR4BIo=
        "], {{{}, {}, {}, 
          {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
           GraphicsGroupBox[
            PolygonBox[{{593, 604, 605, 553, 580, 492, 563, 590, 534, 556, 
             583, 505, 522, 544, 571, 472, 497, 510, 527, 549, 576, 483, 491, 
             504, 521, 543, 570, 471, 470, 469, 468, 467, 466, 465, 464, 463, 
             482, 490, 503, 520, 542, 569, 462, 515, 532, 554, 581, 496, 535, 
             557, 584, 509, 561, 588, 
             526}}]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
          {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1FWYkFUUBdCR7u4eukO6u3tg6FAUFVBBlK4BTDqVkJBuWzDADpAyQLEB
AQMlDMKAdR7W/Pts+ODhbkgcMjLp/lsSEhJ2+RHf2/zIz6fyQpKpyQxdff6U
X2QcqbhdV4DP5EX04ml3D7JxyF2LmXID/pJfYjypGaIryOfyYnpTm4d1Dflb
fpkJpOEOXSGOyUvoQx0e0TXiivwKE0nLnbrCHJeX0pe6PKprzFV5N5NIx1Bd
Eb6Qn6Qf9XhM14Rr8h4mk567dEX5Un6K/tTncV1TrsuvMoUM3K0rxgl5GQNo
wBO6Zvwjv8ZUMnKPrjhfycsZSENm6Zrzr/w608jEMF0JvpZXMIhGzNa14D/5
DVLIzHBdIt/IKxlMY+boWvK/vJfpZGGEriTfxjvHXmjCXF0rbsj7Yi9k5V5d
Kb6TV8VeaMo8XesYHG/GPsjGfe7SfC+vjn3QjPm6NrFR3op9kJ0Ybxl+kNfE
PmjOAl1bUvF27IMcjHSX5aS8NvZBi9i6rh2peSf2QU5GuctxSn4m9kHL2Lqu
PWl4N/ZBLh5wl+e0vC72QavYtq4DaXkv9kFuRrsr8KO8PvZB69i2riPpeD/2
QR4edFfkjLwh9kGb2LauE+n5IPZBXh5yV+KsvDH2QdvYtq4zGfgw9kE+xrgr
c07eFPugXWxb14WMfBT7ID9j3VX4Sd4c+6A9BRinr8rP8pbYAh0oyHh9NX6R
t8a705FCTNBX51d5W7wxnSjMRH0Nzsvb4z3pTBEm6W/lN3lHvB1dKMpkfU1+
l3fGO9GVYhSnBIn09J9aSd9SlKYMZSlHeSpQkUpUJtnvr+I7xZ9diwvyrnhX
ulGVqfraXJSfjTekO8t0XcnEfvdcqjHNXYdL8nPxhiSxXNeNzBxwz6M6Ke66
XJafjzdklbsn2Tns7sEKuTtZ+Ng9nzVyL3Jy1F2D6XI9/pBfiN3LfcjNWPdq
32RycCR269uPvPF3ulf6JpGVjQzgYPx78O1LHjYziAX6tb692UouNjGQ7XwS
O/ftzzbysYXB7Ij39us3AVTdvVs=
            "]]}, 
          {Hue[0.9060679774997897, 0.6, 0.6], 
           LineBox[{429, 566, 539, 517, 500, 487, 479, 430, 431, 432, 433, 
            434, 435, 436, 437, 438, 439, 440, 441, 442, 443, 444, 445, 446, 
            447, 448, 449, 450, 451, 452, 453, 454, 455, 456, 457, 458, 459, 
            460, 567, 540, 518, 501, 488, 480, 574, 547, 525, 508, 495, 461, 
            568, 541, 519, 502, 489, 579, 552, 530, 513, 585, 558, 536, 591, 
            564, 481, 575, 548}], 
           LineBox[{593, 526, 588, 561, 509, 584, 557, 535, 496, 581, 554, 
            532, 515, 462, 569, 542, 520, 503, 490, 482, 463, 464, 465, 466, 
            467, 468, 469, 470, 471, 570, 543, 521, 504, 491, 483, 576, 549, 
            527, 510, 497, 472, 571, 544, 522, 505, 583, 556, 534, 590, 563, 
            492, 580, 553}], 
           LineBox[{594, 531, 589, 562, 514, 586, 559, 537, 484, 577, 550, 
            528, 511, 498, 473, 572, 545, 523, 506, 493, 485, 474, 475, 476, 
            477, 573, 546, 524, 507, 494, 486, 578, 551, 529, 512, 499, 582, 
            555, 533, 516, 587, 560, 538, 592, 565, 595, 478}]}, 
          {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{600, 602, 599}], 
           LineBox[{601, 603, 598}]}}, {{}, {}, {}, {}}}],
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->True,
       AxesLabel->{
         FormBox["t", TraditionalForm], 
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(i\\)]\\)(t)\"", 
          TraditionalForm]},
       AxesOrigin->{0, 0},
       Epilog->{{
          GrayLevel[0], 
          InsetBox[
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SuperscriptBox[\\(\[Chi]\\), \
\\(*\\)]\\)\[TildeTilde].233\"", FontSize -> 12, StripOnInput -> False], 
            TraditionalForm], {-0.35, 0.08}, {0, 0}]}},
       LabelStyle->Directive[FontSize -> 16],
       Method->{"AxesInFront" -> True},
       PlotLabel->FormBox[
         StyleBox[
         "\"(ii)  \[Alpha]=.2 and \\!\\(\\*SubscriptBox[\\n \
StyleBox[\\\"t\\\",\\nFontSlant->\\\"Italic\\\"], \
\\\"i\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"\[Tilde]\\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\\!\\(\\*\\nStyleBox[\\\"N\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\
\\nStyleBox[\\\"(\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\
\"1\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"1\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\"", FontSize -> 16, StripOnInput -> False], TraditionalForm],
       PlotRange->{{-4, 1}, {0, 0.5}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], Automatic},
       Ticks->{{{-0.682, 
           FormBox[
           "\"\\!\\(\\*SuperscriptBox[\\(t\\), \
\\(*\\)]\\)\[TildeTilde]-.682\"", TraditionalForm]}, {0.415, 
           FormBox[
           "\"\\!\\(\\*SuperscriptBox[\\(t\\), \\(\[Degree]\\)]\\)\
\[TildeTilde].415\"", TraditionalForm]}}, None}], {555, -148.74611797498108`},
       ImageScaled[{0.5, 0.5}], {360, 222.49223594996215`}]}, {InsetBox[
      GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJzteWk41d3btnGbiaKkREKSoUSELklSKEMkmUNIhsyFUCShTBkyi0whFAq/
ZR6Smb03KoQKkaRB4d33+96/u/foOZ6j58P9/j+9+wPHeay1rrX2tda69jrP
U9DKWc+GhoqKypPy56//fm+1P62tcSC+1NfGiWGCUEDtdp9qPwcqQwKV+WQx
oLc5upfXlB1ZxTBSqXvJwHpSk2NmFBsS132xeVRZCfQaks6JtbMiq6rPcSM7
1KDmK79c6wILGlwrfe2lpQ0jitqPiaIsiG3oIiEh+hSItu1at6bFjASXHJKP
2ppCVqeZ6A5PJmTFWdzUn2UNfW+UZqoeMiJhRTcaQVZHkFJtDzvfz4Bs0vk3
eBi5AZRQE4OZGBAoG4jUDftAwN3brzNUCWj00hkNTfpA+NDU0TDgQI/WgrY8
DHgUAuz05acuZ9Ah4HSfOG0VAWcjjtfJtdCi46+NkkYOxAA5Yv/0x480aEjy
ufORpgRgSe3E+MRo0GWWAAYjjjSw/7rB1UyHGlWxXt3FkZUFVyzouzhDqFDT
1x1i3/fmwiXh45xPDdYw5wKOrbG0RaBzWW5F88EK1iRm0VpiUAp35zxVMe6f
2P0KDt6pscewb4kbrKyWsUqWysUx+aegwMcUN/X8G3YCZey++6wW0vfknbNV
/opp6x9ksWytA4uhB++5I5YwW+lbKkIpjXAjc7k15/siprXVgy3bsQXoVwrM
z6t9wvpYZ8yTktth6iizs1D8R2xu4WihR/8LMLX2KQ5km8MqzzocP3exG1JN
783z5U1jG/xmXWNYeqE4zmbc2/8tdnvroeucAX1wvehmc8e5CeyT1PJOe2I/
MM068AbQj2FsUoI7aXcNwrPud8qzdcOY84ZszzBlIjRyeYrEL/RjRT4N7/xk
SEC8/+BdpNgLrMDK5kL3KAkUHrQfe16MsKcGehVfdMhAHOeUEldKxPSZLCWP
hZAh3Lbd9sJiKYQNx5dbeZJBdF0lp5tYC2SIbrEW5CfDj3Jdg3ytXhjmypL2
DiKB2oRnNXcUCfhZd5YyVRJBol1Qvd7kNdB+cOWovz8ISrwHH7sPjYMS25GG
fs8BSHbkNIz6MgnRtVc5knf3g9Y90dAThu9hes1f3yWvFyRuxTEc850FM4Wb
0xySPbCYsr9tbW0eeNkUGia/dUKsu4VmwD0ONM5ZFz6rKwxGMqYzrO3sSCql
9VRboxSEp4Z0mX5lQ8qckw9bfPZDqbb0u0kJNhR8uOzL03EVCH050vHNlBW9
FCoQmtHXgA7eJ0td4Szou7UsV7KlLgTRVFtdeMqMRjN3XRhKN4LJ5433osaY
UP4zuYjDrpagSNZmmudkQhz2TZ87eeyAOob22bpDjKh16VP9DX8X2P99suSL
EwPiytWIarD2BIssjeH1OQQk2F/+Dsr9QE6yqOfZID3qlKNvVi26Bv42Kqw7
CfQoOr5hvGDoJuw7thZmtI8O7ZbKz908cAeS2OoG1pvQoj2Gp9vGh+LgEzet
ASGCBi0ORGmoN92Dp+2um2qqqZFfoXVGn28G2J4yl/eceoV5V8QLiFYNAnKV
Kq07Q8I2P6/kHcOIkPDJWluqoQcbl0+j0qPsG6OIAu/D2WZsn4z4pqMCZIh9
U1isQyzDrKcmthS4k6FwmEWuTiMRBuxkZY5SzseTjEirWF0ETwwjh0z1ycBe
I/Hq3NgL2Kr/RSaWRIJ0rQnGUacBWGJMrOkTIoH8aS3q2S/DQCORKSYuS4Q7
sbZ2Ow7OQQZ3x6U5g25glCTyoxcc6GeafaqkkRAEbX7XEkLFgYS/RH/oyt8N
rdRvAxR3saMkzpq1vVayMM51ZVejORtSrNANtp44CBe7FTdxxrKiJoWycX5h
dWgMnebWwliQbJTbmUuzJ0EqjS5ccIEZ8bd99ne9bggh7V8NNDYyo7m6qJP3
6CxgXt8wgUmNCbENrgn80LYFB0UBfRsvRjQ/vNPo0UUnKNtK2lqcwYCm5fLe
Lve4Q7eYMLmDSEB6cdceMVVdgbPjqaQiVgIylXQ9z3oyCJ7EEd75y9OjzYKn
4psPhILgA7Lzewc61G15czXI8zZcfhGsmR1Fi/jCLX1nA2NhSjcl7UctDdpR
7BumpZQEVvsEHGc/USOj1tTQ477pwK/5IslUaRRTH0ixeXVpEA4Ksn4bZBvC
ZsZNXvsGEKEo6IPCOeM+7I5inNtOaxK42Hyk4mdpx/jVyvnMaMhAy5uR4Xbv
Kbax0WKAw4YMVP/7YyG//Rph95FQMvzsX+Q+/rwKdEi1n3afJ0PS1CevC8Ht
cL8oM8BzhQSdVHxSTS/7oGR4W8XAKRLUpoy9olIbggMeznSm3kR4xbFaIWf6
AVbZHySr1HeDwLP3Xir2HOiT1FbSoyuiIKnVyx4Tw476Xea8dsTvAR1FEf6A
RjaUNd3A96hOAYJCJ7MZfrKizp/liV2XVCFz2i9wVJQVSfWb6hIeH4f+/MAB
fWMWdGYuQstsWg/6bdwUHl9jRsoTDbHUM8ag9iJqbKiACa0ed3Sm/mEFN8yO
XO5/zYjyts7Qy1A5QML01PZqZkYUIc/BfOeVKzzrXzx8UIkBSdsx3NzH5Q0f
tzi+NHYnIIJh5ci7zqugWq/nWJg9iFnRBrvd/UGEIKsRix/i3Zgsi2Pt5FPK
+Z4K3KPU2YCdefbxnd8BMhw3cb1yViQfC5ZllUVXyeBlql1+70geVJ4R4tMJ
IMOckdDTazUN4Ow9rUylSIa6Y/u2F6V2A/H1kaKIYhKo8nZt4to2Dw466au3
erugPiyacXSKA+2+QJjjddwOPJESTxr4OFCk9tKzUAVxsJWJP5N/mB3x8+Z3
m5/fB5c90jXLvNmQIxJ05glThtFjM8pbi1nR62AXLdttR0AF0YmEkVhQSkJI
AinuBIR8yE33ZWVB75LbR86FGMDgMc4yob3MaFjY31/ikRkcixp6zWPKhPrf
ht2W8rCB1NuSabejGZGTr7mNyf6LsCCle4rlGQO6VI5chLncgfHieqO8jwTk
cLUlGGu+DE5KG01yRQmo9u4538gHgdD78L1Bvi495f1w1tXc7QZsGlQf3xNC
h+Qt3Y2i7SLBQcKO4FRIi77yaJXuHYmBUedptS9EGmRm2VMf458IcvZfuenY
aZBV1L78a1TpEMu3ZWgufRQzWEeUrjsxCD+9l5PG3g5hEdEpBm7mRKhq3yO9
ItyPZR1JWTikRYId9B3uhknPsXHra5+YP5Hgqcy9zcErNZiBfcm56LNkcJyK
FR+VvYnxc3E7Nd8gQ+NW81pj8yewBT2OPutMBosrA2rOxFYY1Ldb0Wcnw4Sx
XP1+7j7g/Hxp7wZHElAfKtS+5UCGiPGSDTkJRAh50fYam52Fh4QlF8Vv3TC0
MdvSIogDcUSkn4uwEIEGbONKVxE7Yi72XYypkIY5x8Evcy/ZkFkyjZV7vDxs
nmFu+bKBDb1NfLj4MOcQcFtLPJhVZUUHi2dW5/2Ogc74vckoNxY0MMrsJ71d
D8TLN55Yl0apZ59dzanRGYjVKjj4pJkJeW+cc7HYawVj99rqxr4xIiO375Mn
Geyh4+CS05Qw5fcqa8tHO3FX+D7leDnJgAEdKPITXCfvBTstjE32RxBQZo67
fESNP1BvPsRRcZWI0fEZpci8IkJEvsDpuK/d2KvZ9cTbOSQ4FWKa7W7ahG3w
0IsgS5BhpLVUDjxKME1125Hmy2TIyc4TXf2cCfNhebnt18igt2LEHs5QDx5S
SzzoKBk0dmpyWtzuAotRU+nYRhK8H0xSuVc0BxUqR1Uzt3VDddOGiMkrrVi+
VTRnKycZtFZzdlopVGDE55MtFy+SgYcUqsB68iaourq4NFH2b1946EWF/TUQ
+01mkWhKhln1nBpaqMeWxLRr9qqTYVjE76a8VRZG6jjke5eyHg3uBRWFu8WQ
ZnzvE/EKpf6dpV0IvT0P5mWE3bU2XSCg4LLivEh5f6/tOsy+LAijR3UkrMQ4
UBTIjnvf2AVyWvNNljrsSMxONZJmTgaaRWRGdgWzoVO8qFFlXAkSCQ06WdWs
6P3+hIT6dDVYHeaUFJtkQXVqZsGh89rwaMOPXbs2s6C92QPFiiwG4M+UahkF
zMhc7+bxrcxm8KU4+VqKPRNS3p7/IJ7FBiqrZJt2pDOi7IpmGst0R1hXFeFc
1cKAkiqGtW6Vu8H9yLD4jSsEtBDI8/yMzmXwsu/bKixLQHc6zR62GATCqMIw
q4oZPUp5JbaEOG9AzEU/vsEYOlQRso41cCICrEzJ53qraNGZ9TPhP8NiYGT1
TrzbBA26farzooVgIqTTvpm+zUeDwn5InvS4kQad1xp89veNYgPGfkyeSoMw
ct91durUMLZ3mjE86QQRauf0xdtv9WO0B/a7/gASrPZXFX2y7MDyI819w96T
gOfQJmJEEYZ9blsPdoZkIIg7ZUbMRGObz56/J0rZz531sVzn8sqh/i0mROdG
uZ9N6uKuVK2g99J8wISHDB8ZGlkWSnrBV745z9KLBJnRnMHdlN+twYpXve65
RDAuLHa7Xj4LQWYM/bvW98D+5iDDj5EcSFy7vaecKAyRPgfcnarZ0bXNdcYV
mtJQEyx5LmeaDW3x1X69nkEebJNTTjsJsiGmMme3ssOHoFOA/uklHVakep7W
Tv+tBrCv5n6QDmBBvPLSR78iXTActifVFDKjm3fTvL5LngElVvkPQv1M6Lnd
U6/JbkuIfHrLxo6eCX1ffbmRIdIOpux+xl6RYUS6XX3pe/tdYJNLXpyGFQOa
MrVuiHrhCY2BPfeyEwnohrPLu7f7/WH0SKVF9SwRE7BZ4NrZRYToTlU9K9Me
zLSRtoEtmQSShpqv1wk3Y2sjLKsSomSQH5RaPCpSigWZ6Cu/9CKDb0xxvVli
GgiI55TtDCbD9S43+Tu760BdvMygTJsMBZeqv1pWdsJ6Cdj9uJME1Y8D+s09
54CmSam8/UA33I2jaQk83IYphdiekWYmQy7LjkmH6Urs21f9Hit7Msx0B6lk
nvUBr/hP24Up74sE6dq6Q4HPIFzPTfyBFRmaeWK/phEasJ/85DOeKmSIPuRF
c7wxB3tu972hK5BSbxXSLk9fLISfBxJKZfzJ4HTg/XXt0/PQxV7KJZrcBWYi
/Ga+WtWYijjzd3cLMsR/SNpxXMwHY65vzvhrPgsfMQc97kpguxwsaH+BDNRe
Fz47hj7ETHeLjp33I0Nk4I8PWltzYLnda4tEEKVeCdnlCX2LhrOF3/lFKOdN
iPXaOlGqdOy+de6JDZT8JHhn0KqZPwKR1rZZJR/K+n23mja2zMOtjrPpelJd
cGLd668V3zlQ/XlpInW9IDTfH7PbI82BBMv4N7NI74JUIz7fGkN2FKbrzaBb
KgOOV33v295iQ6VB3UOZt5Xgy4SksW0DKwook631tlKDV/abSr1nWNACMEgl
pmiD+s4dH6kEWdBHVT6GpM5ToGc/Ia+hzozK+2LpOipMQQvzGxh1ZkKj8b4M
vkRraD6hYDSfw4jCniWpTRs4QvqKuN+6TgbEXcjBqBPiBpe2qVecoGVA7YEb
ZPq5L8PPq4/83ygSkPKAiauFRCBMrem/C7OmR6/XIjQ8xkJAp2qTfG4SHerS
bWyTyooAs6Wo6OuIFj3ibvnWZhUDxuoTKqXTNOhH6XFG6cUEGOw2GjDYToMk
tbMOyWumwez++Lazs6OYpKFB6CGZQeg4IBFnf2sY8/0oZMWrToQ6qsncktp+
TPHrydAGBRJMV5c8R00dGOIwzdo3SYLxcwWbbx5GmM+eWutKCt+YIyC7kfV3
MVrf3tOIwkeMY4uVzneWQV4Fb1E1ha98cbjK/ym2BWa8afKPbiaD56uwkhf+
vRCtodq96EsCN8VGAbcWEpiFOoaol1D48r3MGtuEWdi773B5qkAP2KYs6MjH
caAm9dV851hhcBt8XqzcwI5EHjPk1vBIw45oY16aBTZ0ID9XhhXtB9alqW35
omwohX8s/CvXIRBfc2mQPc2K0gyuVyqkaMCHW8WuASEsaGOFvQt7lC7MzkWn
xJYxo/dK1/Ij3hrBOkf/xqEhJjSkkP2KnG4JE22OFQUsTGjYsPKimJ4dfF5Z
E1U/wIhqf5gJ7c5zgdzyo1lpdgxIyvkR1VKCJ0RzRTwbSSOgkjXBzP4lP+ge
dmMCIRIWfufEz1stRIgb7evSuNODyRcVcVXcJQHfQdWfr0KbscXDw5/qhMgw
ZeKk27Fair38kqaoTeH7sRWmPzlck2Grq+MkRjn/KfKB2lwYAkXta6VROpT7
snFpelyrExJ5OhYL+0ggku3Gr2o8Bzn5M/tMNbrhmt/3NycftGG9hIYbJwhk
MIy2OjxfX4XJrjbqqlL4RVy954lOd3tQqMvepky5r+005JkjOU/hQzwGi9Zk
KFsN2+Dk0ID1TtmnBypT9vvE51o9j1wsQU6Tp4fynnbU9NzYQM6HW9Z9vcco
722S2EinlOI8PL54aatxRRewPjSpphKuwQ5PzGeympEhWXIhVXUyCGNnp/+5
Qrnf0ZpqsYYHKoDZgzH2AuX9YHL9XYmHQjFGLxrqJuBL+f2P6Q0TvnkfbA9T
99JS3gdvb+9uzku7DW0Gp575UcZf5aV6IfUoA2OqZr1mdp0MqdRsetJxJbBt
RuV0NOW9I+247kFOwTxoa9/KDj3eBUqp8pV+IbexsWyzb/6U8aUVAY2DFhnQ
IbiSGkgZry4wWei0GgRhX1qU/1qf3L7lI4fWZ2O7H3xWrKbUpw8/cnj419lj
rZzrzP/KV+NalfMlgbuQK0uXXEs5/5ErLLlKqcmYdHvkywrKfplE7Fo//mYe
RM2J6ls2dMHUFZ6l4Z8caERlSk4hRxDk9fMJiTIcSGdZ27GKbhf0mu05PXOG
HWXOXu58EisDSDwj9HokG6q1fSKXY6sEO/onXrU0syLq6YMccYfVoLOEzz19
jgV9MIh6M+euDZyllXqOO1iQ2BdRseCSU6CUeON+1jFmdHzTgM7HSFP4pu7k
T+PGhJhPvnuXWGMNWrzPMk7lM6JetlKmj9KO8G7bD1qlHgb0sT0y0tDZDUhv
hY46EBgQR8OEbfU3Hzh4S6BYFQgoNG8mU5M3EKat1hmWnKfw60A7AZe2EJAy
t1XnTKVDPh8UnpQHRYDJobm8lw20KOHo0dz2EzGweToirucDDXrRu0TYO5IA
LhUx7ZXCNKgmcvK2kkQaLHMGLnz4NoopkXbEZEkOQiP9rff5OcMYuT8gq+8Q
EepvPnwrROrH8uQfOGXKkWBUevfQg68dmIBvvR7dGxJE0ivuzfdBWMQLttYz
emQY//zuOW1uPEazpRULoeyP20q17nuLMhj4wU4T7UHZrxq+hL3mLeAiOp4v
t4UMlcfmaKptesGsqL+q4ioJRm6nOKkVkuBWldqcWDkRvNcnj58OmwWXUq6c
06I9sMIodsIkgQNp+sj84HYThqnrsdrZzexI1VnTdPmbFBgluHyW+syGuOYf
5/ck7wfzDBa61l1s6HN2lkPbsgoYz4loxBuzoiNiO3f5eGvASG+pTO5NFrQO
Sw5S99GFCm9RKqoKZuSPXVu/tdEIlu8JSsu9YkLBrRlbqG5awh1dU4sX7Ewo
5XDK0IV9dnC5NdC1QJkRPai9+OxFjAt8HOTZ9fwCA4IFmulOf0/4PuSg+S2T
gBZ/yAUs9/tBa06PacBBEqbvef1cZQMR7tons1fn9WDHZcCAEEsCrtIa5uan
zRidJoc5YTsZlNMjAtgvlGGLeoXO/pT8pbftS3w3kgQFPGOh9JT87vrAYKQf
imAzz3W2ZV0yeDhEWQtt7IQoFdfs7YMkGN5y8bCM1hzkEuNWhE92w+UF909y
5DbMSTVhhxEdGQoHAi/tkXqKmam80RO3JcP7bDMHkQdnYNWkQeQw5b69uTBF
1Sr/FMILKmy4KO35lwhCBskN2OrUxvvUSpT6MrB3K1E7D+sWXZ45TqlPl/rH
bIo58iFtw6ZPnZT6FJExsCggMQ9iDTOyi41dcO7jlRnVqBpMn0oQ9ZhQ3l/M
h22i2EKwZTa2vROU+19QrptH6ngCu9P5x22cyBAcHMOwwliCXZJenvWg8JP0
LQfJnFgWMHodU7Cn1KfVsqE1Y69w2KbRF51FGS+RflC8/GYmlqO+2PyT0i7Y
rOojIl0CZ85/499PGT/5hqkjPmUe9F+qXxEy6gIu5SNgezoK+55Yp25AGV+p
MsvVcDcdrkjcEyZS6lN1qMgLKLwKAmAnsZ6Sj4mn8vebZrKxIZpOdQ1KfWqR
/RpfSLqEvZzz85OhtHdzRrFqhseC96S68WfK/kwz37Q+cjIVy93UZmpHqU+c
9Dvk+wbm4XXu1SsVgl2wvCme/vHVWOyEis2XJUp/Pt7XZXQsbsB1z4z/r3h2
2QcfvfW5isnRLzz/a/53sqD+81wUrD9GP61PWe+p+qkFSbNw7AiteMl9Cpb8
KedWIxIC8yt8p95QcOImbLnppRH2MNxb/a/9zOXeM/dxYR5sJfMYAgldgPst
VH9/cL8Fx7jfgmPcb8Ex7rfgGPdbcIz7LTjG/RYc434LjnG/Bce434Jj3G/B
Me634Bj3W3CM+y04xv0WHON+C45xvwXHuN+CY9xvwfH/91v+Hb/ln/Pxt9+C
Y9xvwTHut+AY91twjPstOMb9Fhzjfss/4//2W3CM+y04xv0WHCcpDFzw2kSF
Cu5b+gqu5MPYSRWGa/6rWH3hkUbN5JL/Z/4DPj/uP+AY9xNwjPsJOGbWvpii
dvLXec0/cCScf3oVY+2c9fC4W/yv6+u4no7Ph+vjONbXuux+qmENa+f9blPk
Xfiv6c14fFxPxjGuJ/+DDRXkChx+5YO9pOXE7LY1TNjRh0PgedF/TF/F58f1
Uhw3mnPlCC6vYQqF+mzUVQX/mv6Ix8f1RRzrHc6geyXzKx//U70R7/8nfRHX
E/H+uJ6I49SzaUFm3r/mR9OM0n0H1rDyEUajMdui/5i+hs+P62U4rt3nvK2R
mQod73nBk2Bc8K/pT//k+299CceSGgy6UYd+5eN/qjfh/f+kL+F6Et7/T3rS
7/pRt5IH8ZEwFToWvt61NSv/v+hFuD6Ex8f1IRyzmvXulL/66/vxhualq2us
YQdbtBO3yBb9x/SSf+7b3/oHjnfvz2xK4aRC6Fjp7Vrxgn9NT8Dj43oBjpOP
H/jqoPErH/9T/QDv/ye9ANcH/sn/H/SB3/WACRUnMzqJX+v7nf/jfB9v/53v
/4nPMyoxculuo0KdW9SrUGf+f8vn8fg4n8ex2uuZH/eDfq2vefC7EdXJNcwg
+mG/zpai/xi/xefH+SqOz1U+S2DmpkKDx1p97DYU/Gv8D4+P8zsc9z3Xbydq
/srHn/heaPNyt9E243/G/4nf4Xzun+/3Bz73O3/jq7+xx1X61/p+52s4P8Pb
f+dnf+JfUCM4WbOdCoWuJE7nVOT/t/wLj/87//qdbwVdyXuosPvXen/nW3/n
D/NYMF3/f/MrvL+Yye36pZ1UaAiNSB8pyP8v+f69nv4+3+/x8Xgbwv7qnwTL
BLFt1up9iv+nve2f+vz7eBz/Lz/kPjc=
        "], {{{}, {}, {}, 
          {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
           GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwNzMku3XEcxuFzjIlpQTSmhYNKUIsKQQS10BoSw1lUCNKYQjS14gbcjrFF
aZULqHFlTFS7aWtITAtC4lk8eb+f38n5h/rGwp8iAoFAkEkyxTgTfKSWAdIZ
oYIeLv1h1FbTRyzD5NPMut/r7BBZVPGBJ+81tp8XlNHFH+8ZtpJe7nSSLSbM
rn4gxV1CB8c6zZbTzYWOsS9pYk0/kuoupZPf+pZE9yva2dH3JLtf854jfU60
O49GfuhTbkjQRbSxrQ85I0rn0sCq/sU18bqQVrb0Af+J1Dm847veZJ9/RHgL
8ZZveoVlvrLEIgt84TPzzDHLDNNssMdfgr6TTT1T+oQr4nQBLfzUb+wgz8jT
QDU=
             "]]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
          {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV02WUlVUUBuCR7u4eUrq7YehGQkQU6ZKhlZCusYgZwgJFMWhUVFRUQLAF
DFCwwQAllFBQ0Wf/eO5+z7tm3XW/b59JHJLce/wNCQkJa33EbO/jH/NV5tGT
ugzVF+WYvI47SUcH3b/ma8ynF/UYpi/GF/J6xpOejrrr5ussoDf1Ga4vzpfy
4ySTgU66/8w9LOQmGjBCX4Lj8hNMICOd4yF4w1hEHxoyUleSE/IGJpKJLvHc
vCkvpi+NGKUrxVfyk0wiM1116XhLXkI/GjNaV5qv5aeYTBa66dKzV15Kf5ow
RleGb+SNTCEr3XUZ2CencDNNGatL5Fv5aaaSjR66jOyX72UAzRinK8t38jNM
I3vsU5eJt+X7uIXmsU9dOb6Xn+UucsQ+dZk5IN/PQFrEPnXl+UF+jrvJGfvU
ZeGg/AC30pJcsTt9Vt6RH2QQrcgde9Jn4115GbfRmjyxE3123pOXczttyBvv
X5+D9+UVDKYt+eJd63PygbySO0giPwXiGVzggmYhClOEohSjOCUoSSlKU4ZE
ylIuduO7c/GhnMoQ2lE+9qDPzUdyGkNpT7KuAiflTUynQuxBl4eP5VUMowMT
dBU5JW9mBhVjD7q8HJJXMzx25lydX+Xn6chE50r8KG9hZnCuzXn5JSrFnpzz
cVhewxy5PhflEbFfuQa/yS/QiUnON/KTvJX5ciOuyLOCXIcLcdfM1rwsLzKb
cjXugZkU3xP3wczPco44LzVbkMZa57lmA1ZyKe6j2YbVjIx3adZkBWfj/8Fs
xSpedF5oNiGVv+J+mm3pLE82K/OznGK2ZJu8wGzMn/I9Qa7L7/IrLJabcU2u
HPdWLsAn8kPMkxtyWR4V+5NrcU7eRRemOFfhF3k7s6kS91xXkE/lhxlNV6bq
qnJa3hG7omrcfV0hPpMfYQzdqBZ3X1+Yz+VHGUt3qlODmtSidtxjf1eEo/Jj
jKMH03TVOCPvjH3Eb3Wuxx/ybpbIzflbXma2Y03cA+f/Aevor6k=
            "]]}, 
          {Hue[0.9060679774997897, 0.6, 0.6], 
           LineBox[{408, 579, 542, 511, 486, 469, 458, 409, 410, 411, 412, 
            413, 414, 415, 416, 417, 418, 419, 420, 421, 422, 423, 424, 425, 
            426, 427, 580, 543, 512, 487, 470, 597, 560, 529, 504, 607, 570, 
            618}], LineBox[CompressedData["
1:eJwNzMkunXEcx+H3GBPTgpCiC0eRKBaEqAhloWiTUosKQeQYQjRcg/uh5nm6
gGrpqrQS06YUiWlBSPosnnx/n/+bvOHIWNtoKAiCcbKjgmCAOr55/GgLSeBa
HzJBg84hxF/9i20m+coU08wwyxzzLLDIEsussMo7/wkTxZne4ztrNHrLJZpz
vc8PWvRrErnRR6zTpF8Rwz/9mx1adRFJ3OpjNmjWecRyof/w2V1KKg96l0/u
YpK50yd0uMtJ50lv8t6dTxyXustW8oID3W7LSONR/6TNXUIK97rHVpHFqe60
FWTQRy3P3nttNS8ZpJ4t7x9sAUPEE6GGEa5877ZvGCaTft7yhf+ZWj9C
            "]], 
           LineBox[{600, 563, 532, 507, 466, 595, 558, 527, 502, 484, 448, 
            588, 551, 520, 495, 477, 467, 449, 450, 451, 452, 453, 454, 455, 
            456, 589, 552, 521, 496, 478, 468, 596, 559, 528, 503, 485, 603, 
            566, 535, 510, 609, 572, 541, 615, 578, 621, 457}]}, 
          {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{625, 627, 624}], 
           LineBox[{626, 628, 623}]}}, {{}, {}, {}, {}}}],
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->True,
       AxesLabel->{
         FormBox["t", TraditionalForm], 
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(i\\)]\\)(t)\"", 
          TraditionalForm]},
       AxesOrigin->{0, 0},
       Epilog->{{
          GrayLevel[0], 
          InsetBox[
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SuperscriptBox[\\(\[Chi]\\), \
\\(*\\)]\\)\[TildeTilde].478\"", FontSize -> 12, StripOnInput -> False], 
            TraditionalForm], {-0.35, 0.08}, {0, 0}]}},
       LabelStyle->Directive[FontSize -> 16],
       Method->{"AxesInFront" -> True},
       PlotLabel->FormBox[
         StyleBox[
         "\"(iii)  \[Alpha]=0 and \\!\\(\\*SubscriptBox[\\n \
StyleBox[\\\"t\\\",\\nFontSlant->\\\"Italic\\\"], \
\\\"i\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"\[Tilde]\\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\\!\\(\\*\\nStyleBox[\\\"N\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\
\\nStyleBox[\\\"(\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\
\"0\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"1\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\"", FontSize -> 16, StripOnInput -> False], TraditionalForm],
       PlotRange->{{-4, 1}, {0, 0.5}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], Automatic},
       Ticks->{{{-2.02, 
           FormBox[
           "\"\\!\\(\\*SuperscriptBox[\\(t\\), \
\\(*\\)]\\)\[TildeTilde]-2.02\"", TraditionalForm]}, {0, 
           FormBox[
           "\"\\!\\(\\*SuperscriptBox[\\(t\\), \\(\[Degree]\\)]\\)=0\"", 
            TraditionalForm]}}, {{0, 
           FormBox["0", TraditionalForm]}}}], {185, -446.2383539249432}, 
      ImageScaled[{0.5, 0.5}], {360, 222.49223594996215`}], InsetBox[
      GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJzFmnk4VW37980zOyolEQlJhhIROoUkUSGSMiSElDFDIRKJkCkyZIqQEIoK
6zKGhLDtvVEhJGRMSYZ33+/xW+73eN4/fsd93M/9PP7g+Bx7r7XPva5rneu6
Pl/CVk4GNnQ0NDRN1F9//PX9oje7ukpA/A8/mT4IFYYntG6PaPYTUAkSKs+j
SACjzZG9fGZcyCqGhUbLUw7Wk+sdM6I4kaT+uy39qipgUJt4QaKZA1m9/B7X
t0MTKn8KKjTOsKPu1eJPnrp60Kes95wkzo44ey4zJUSfAvGmXetWddmQ8LxD
8hFbM8hsNRff4cGKrLgL67syraHzs8r4y6csSFTZjU6YwxFk1JtDL3YxI5s0
wQ1XTdwAimhJQazMCFSNxKp7vcH/fuSndHUm1O96RvsYYwB8q2+pJTowotWb
W5/6PwsGLsbSU9fSGRBwuw+dtgqHs+E61Qpv6JHOJ5PEvgMxQAnfPzY9TYd6
pN86Ha5PAPaHrRi/BB26xu7PbEJIBfufG1zMT9Kilxw3dhEyM+G6JWMbdzAN
qv+5Q+LX3hxwFdXhfmW0ijk9IQjE0hfAyWsKy8ceL2P1EpaNRUbFcH/SQx3b
uIQ9KiPwjQw8h33zG8HKahErZy+fG1B8BUr8rHEjbxew4yh99/3XVZC2J/eC
repPTM/wIPv5xmqw7Hn8dWP4PGYrG6YmklIHtzMWG7N/zWG6Alc5sxzfAOPy
E4uLmrNYJ8e4RWJyM4wcYXMSiZ/GJmeO5F/tegdm1t6FAZyTWPlZB50Ll9vh
oVnSFH/uGLbBd8Ilhr0DCuNsBr38vmCRAoducft3wq2COw0tF4awWZnFnfak
LmCdcODzZxzAOGWEd9Lv6obX7aOqE9W9mNOGLI9QVRLU8XiIxc90YQXetaO+
cmQgPXo8GiHxDntiZXOpvZ8MSo+bj74tRNgrI4OyHycpQBrklpFUeYAZsp6X
PhpMgbu2zbaX5oohtDe+1MqDAuLryrndJN5AuvhWa2FBCvwu1TfK0+2AXp5M
Wa+bZNAc8qjYGEUGQY6dxazlJJBqFtaqOfcJ6L+5EGoedQMHneRtXsogqPGd
njf2JEKyI7dx1I9hiK66QUje3QW6SeIhx42/wtiqn6FzbgdIhcUxH/WZAHOl
O2ME6fcwl7K/aXV1Cvg4lWqHF1oh1t3ymH8SAQ1yV9+d0BcFEzmzcY5mLiST
0niqqU4G7j4MbjP7yYlUuYefvvHeD8V6sqPDUpwoSKPkx6tBNQj50NeyYMaB
Pog8ERk31IYWvhfzbXfZ0S9reZ7k8/pwk67C6tIrNtSfsetST5oJDL+tS4oa
YEV5rxXCNVzOgzJFj3WKmxUR7Ou/t/LaAW0M/et1h1hQ4/xszW0/Z9j/a7jo
xxVmxJOjHVVr7QGWmdq967OZkHBX6SiU+oKCdMH7192MqFWBsUG9IBD8bNQ4
djIxouj42sEnPXdg39HVUJN9DGi3TF7OFuI9SOSsJq4/R4/2GJ9uGuyJg9mN
9EZM4XRojhilrVWfBK+aXTZXVtAi33zr9E6fdLA9ZaHoMfIR8yqLFxJ/2Q3I
Raa4+gwZ2/K2nG8AI0HCrLWeTO17bFAxlcaAOm4sYkp8TycasH1ykpuPCFEg
9nN+4UlSCWY9MrT1iTsF8nvZFaq1HwDRTl7uCHV+vEiPsIrVR/DCOKLHzJAC
XJVSHy8MvAMBwx9ysWQypOkOsfRfIcI8y4PKThEyKJ7WpZ340Qt0UhkSkvIk
uBdra7fj4CSkb2xxnTRqBxZpkiB6R0BLqfYPpU1E4OaW0TfBNAQk+iP6W1ve
bmik/eKvvIsLJXJXru61kodBnuu76iw4kXKZfpD10EG43K68mTuWA9UrlQwK
impBXcjYRl2MHclHuZ1xnTgBMqkMd4Vn2JBg03c/l1vGENz800h7ExuarI46
kcRgCVOGxgmsmqyIs3tV6LeeLTgoCxnaeLKgqd6dJs8uX4ESAbJAYTozGlPI
/bL43h3aJUQpLSQmZBAX+Iz15XU4O/iQXMDBhMykXS5ynLgJL+KYRv0UGdEW
4VPxDQdCQPgxxemrAwNqP39n5aZHJFx7F3QsK4oe8d897zMREAsj+impv6vo
0I5Cn1BdlUSw2ifkODFLi0waH4bo+KSB4LF3iWYq/ZgWMcXmo2s3HBTmWOjm
7MHGB8998vEnQcHNb0oXTDuxe8pxbjutyeBsM00jyN6MCWqW8pvTUYCeLz3d
LekVtqnOkkiwoQBN3swc5+5fByGlVO5wCAWWuuY26rx9CSfJVbO7L1IgcWTW
81JQMzwqyPD3WCZDKw2/TP2HTijq3VZGPEWGqpSBjzSaPXDgqhODmRcJPhJW
yhTMvsEK1+NktZp2EHr91VPNnoBmZQTIz66Lg7RuB1dMDBfqcp703BG/B04q
iwn613GizLFa/mfVSnAzZDiLeYkDtS6VPmhzVYeMMd+AfnEOJNNlps/0XAe6
8gKIhqbs6MxkuK75mAF02bgpPQ9kQ6pDtbG046ag+S5qoOcJK1rRcXSi/W0F
t80PX+v6xIJyBcYZ5WgcIGFsZHsFGwsKVySw3fvoAq+75jQOqjAjWTvmO/t4
vGB6q+MHU3cmxGRc3jfaegPUawwc87O6MSv6ILf7v0lw06rP8rdkOybP7lg1
/Io6v0cC9qi01mJnXk+P+h6ggM45l+tnxfKwIHkOeXSDAp5meqVJh3Oh/IwI
/0l/CkyaiLwKrKwFJ68xVRplClQf3be94GE7kD4dLggvJIM6X9tmnm1T4HAy
bSWsow1qQqNZ+kcIaPclpkk+x+3AGyH1opafgCL05l+HKEmCrVz8mTwNLiTI
l9ducXEfXLuadqzEixM5ImEn3lBV6D86ripQyIE+BTnr2m47DGqIQSyUzI5S
EoITyHHHIfhbTpoPBzsaTW7uuxBsBN1HuUtE9rKhXlE/P6ln5nA0qucTrxkr
6voSGilz1QYeRkqnRkazoCs+Fjbn9l+GGRn9U+yvmZFrKXIW5XEHlsvrTXKn
mZDDjTdBWMM1uKKy6VyOOBOqun/BJ+JxAHQ8/WqUp89IXT+cdbFwuw2bu7UG
9wQzIMXz7ibRdhHgIGXHdCWfHv3k1S3e2xcD/U5jmj9IdMj8/PuaGL8HoGD/
cyMDFx2yitqXF0iTBrH8W3sm0/oxo3Uk2erj3bDktZg48KUHC49OMXKzIMHL
5j2yy6JdWObhlJlDumTYwdjibpz4Fhu0DpxlmyXDK7mkLUHLlZiRfdGF6LMU
cByJleyXv4MJ8my80nCbAnUCFlWmFi9gK3oefdaJApbXiZpOpEboNrRbNuSi
wJCpQs3+jZ3A/d117wZHMtAeytcLc6BA+GDRhuwEEgS/a/qETUzAU6Z5Z+WF
dujZlHXe8iYBEcLTLoRbikEttmm5rYALsRX6zMWUycKkY/ePyQ+cyDyZzso9
XhG2jLO9+bGBE3158HTuafYh2Ggt9XhCnQMdLBxfmfI9CicHk4aj3NgRsZ/N
V3a7AUiWbjq+LpXaz767WNCiMxCr++TgiwZW5LVp0tlyrxUMJDVVDyywIBO3
X8MnmO2h5eD8lRFR6vMqc+u0naQL/BpxvJZoxIwOFPgKr1P0hJ2Wpuf2hzOh
jGx3xfBKP6DdcohQdoOEMfCbpMh9JEF4ntDpuJ/t2MeJ9aTIbDKcCjbLcjer
xzZcNQinSFGgr7FYAa4WYce0bPsarlEgOytXfOV7BkyF5uY0B1LAYNmE6y5z
DVyVmedFRyigvfMYt2VkG1j2m8nG1pHha3eiWlLBJJSpHVHP2NYOFfUbwoev
N2J5VtHcjdwU0F3J3mmlVIaR3g6/uXyZArzkECWOE3dA3cXZuZ46fvvuhlxW
2l8JsQtycyQzCkxoZVfSQw02L6FXuVeLAr1ivncUrTIxcsshn/vUerQ3zqgp
3S+EVNOkWdJ1av87Sz8TEjkFFiVMu6ts2kBIyXnZaY66/l7dpcG1KAz9R05K
WUkQUBTID3rd3gUKulP1509yIQk79Qi6STloEJPr2xXEiU7xoTq1QRV4wFR7
MrOCA33dn5BQk6YJK73c0hLD7Kha0zwoZEoPnm34vWvXFna0N4tYqMxuBH6s
D89HARuyMLijI8BmDj8KkwNT7FmR6va8x/HsNlD+Ur5+RxoLyiproDuf5gjr
XoY7vXzDjBLLenXDSt3gUURo/KZlJjQTwPv2zMlr4GnfKSAqz4TutZo/fWMU
AP1KvRxq5owo5aPEPOK+DTGXffm7YxhQWfA6joChcLAyo1zoeEmPzqwfv7sU
GgN9K/fi3YboUOSp1suWwg8gjf7zWCQ/HQr9LX3i6u1UaA2s9d7f2Y8RTX1Z
PVS6oe+Ry8TIqV5s7xjL3cTjJKiaNJRsDuvC6A/sd/kNZFjpelkwe74Fy4uw
8An9SgbeQ5tJ4QUY9r1pPdgZU4BJ8kpG+Hg0tuXsxSRx6njurInluZBbCjVf
MBEGN+r9Wa8l6ULTCAYfLIjneCkwzVzHPlPUAT6KDbnnPcmQEc0d1E59bnWX
fexwzyGBaX6h263SCbhpzty1a/172N9w03g6goAk9Zrfl5JEIcL7gPuVCi4U
uKXatOyYLFQGSV/IHuNEW330Pq1nVgTb5JTTV4Q5EWuJk1uJxiFoFWJ85XqS
A6lfpLcz/KINXCs532T92RGfouyRn0gfjHvtyZX5bOjO/VTPX9JnQIVD8ZtI
Fyt6a/fKc7j9PES8CrOxY2RFv1Y+bGKOsIMRu6XY63IsSL+tM21vlzNsds6N
07ZiRiNm1rVR7zygLuB9UtYDJnTbyXn0y34/6D9cblkxQcKEbGZ4draRILpV
3cDK7D1mVkdfy5lMBmnjY5/WiTZgq33sK1LiFFDslpk7IlaM3TxnqPrBkwI+
MYU15g9SQUgyu2RnEAVutbkp3ttdDVqSJUYlehR44lrx83x5K6yXgt3PW8lQ
8dy/y8JjEujqVUqbD7TD/Ti6NwEaTZhKsO0ZWTYK5LDvGHYYK8cWfhq+t7Kn
wHj7TbWMs97gGT+7XZS6vkiQrao+FPAa7hq4ST62okADb+zPVKZabEmQcsZD
jQLRhzzpdOqysbd2v2rbAqj9Vin12tjlfFg6kFAs50eBKwe+3tI7PQVtXMU8
4sltYC4maO6jW4GpSbL9crekQPy3xB06Et4YW01D+h+fZ+kt4WCwsRw4rwUJ
21+iAK3npe+OIU8xs93iAxd9KRAR8PubrkA2LDZ7bpW6Se1XIna5IgvRcDb/
l6AYdb6JcASuE6dJwx5Z5xzfQL0+CV7p9JoWz0CssWlCxZtav4+AWd2bKQhr
OZtmINMGx9d9+ln2i4BqLsqSaGuEoeHRgN0eWQISLhHcwi67Cx6a8PtUGnOh
UH0vZv1iOXC84fPINowTFd9s78mIVIEfQ9KmtrUcyL9EvsrLShM+2m8u9hpn
RzPALPMgRQ+0du6YphFmR9Pq/MyJrafAwH5IUVuLDZV2xjK0lJmBLuZL7Hdi
Rf3xPsw+JGtoOK5kMpXNgkJfJ2qOGTlC2rKk77pWZrQxn8ByMtgNXLdplR2n
Z0bNARvkujZeg6Ubz/w+KzMhVeI5F0upABhZNRwNtWZEn1bDta8OBMPJl5sV
cxIZUJt+XZNMZjiYz0dF30L06NnGNwtNVjFgqjWkVjxGh34X67DIziVAd7sJ
0Wg7HZLWyzykeCwVJvbHN52d6MekjY1CDsl1Q8sBqTj7sF7MZ1rEik+LBNU0
wzlFVV2Y8s8TIbVKZBirKHqL6lswRDDL3DdMhsELT7bc0UCY954q63LqfmOS
Cdn1rb+P0ft0nEbU/YhpbKHKxdYSyC3jK6ig7ld+ONwQnI19A+NedHlHtlDA
42No0Tu/DojWVm+f8yGDm3KdkNsbMpiHOAZrFVH3y0kZlbYJE7B3n0bpQ6H3
YJsyc1IxjoDqtVbynGJFwa37baFqLRcSe86cU8krCzuiTfnoZjjRgbwcOQ60
HzjmR7bliXOiFMGBuz95DoHkqnOt/GkOlGp0q1wpRRu+hRW6+Aezo01l9s5c
UfowMRmdElvChr6qBOaFfzGBdY5+dT09rKhHKesjJe08DDU5lj1hZ0W9xuWX
JQzs4PvyqrjWARZU9dtcZHeuM+SUHslMtWNGMk7PaOYTPCCaJ/x1XyoTKloV
zuia94X2XjdWECFjd+8dXwp7Q4K4/s427XvvMcWCAp6y+2TgP6i+9DGkAZvT
6J2tFqHAyLkr+i0rxdiHH6nKetT9fmyZ2RLBJRkEXByHMer8T1EM0OPBECjr
BRZHnaTeL5vmxwZ1W+EBb8tcficZxLLcBNVNJyE7b3yfmXY7BPr++nzicRPW
wVR7+zgTBYyjrTSmal5i8it1+urU/UVcjcfxVnd7UKrO2qZKvV+b6Sjjh7Nf
wbd4DOasKVCyErrhikMt1jFinxagSh3v49+rDK7mYAkKx3jfU9fTjsc8NtVS
8iDMurPjKHW9TZboa5VRnoLnl10FTMvagOPpuQoa0UpMY2gqg8OcAsnSMw/V
h29iXFyMS8vU+zv6mGas8YEyYLvKEnuJun44d2u06KpSIcYoHuIm5EN9/sd0
hIreeQS2GrQd9NT1wZfI3Q25qZHQZHTqtS/1+Bt8NO9knqVjrBUcgea3KPCQ
ltNANq4Ito2rnY6mrndkHdc9zn4yBXp6YVkhOm2g8lCx3Dc4EhvIMl/wox5f
XOZf122ZDi3Cyw8DqMdrCQ3nX1m5CaE/3qj+UZ/CvsXDh9ZnYbsff1euoPan
b7+zeQXX2WON3Oss/rhedasvnVyF7kOOPENyFXX+Ryyz56g8TMZkmyM+lFHH
61z4rvWDn6dA3IKktXVDG4xc553vXSKgPrURBaVsYVA0zGN6IEdAJxf1HF8y
7IIO8z2nx89woYyJa60vYuUASaaH3IrgRFW2LxSybVVgR9fQxzcNHIh27CAh
TkMTWov43dMm2dE3o6jPk+56wF1cbuC4gx1J/BCXCCo6BSoPbj/KPMqGdDYT
T05HmMGC1hU/OjdWxHZidPRBpTXo8r1OP5XHgjo4i1mnZR1hdNtvepX3zGi6
OSLC2MkNyF9EjjgwMSNC7ZBtxYI3HAwTKlQHJhSSO55xjC8AxqzWGRddpO6v
A+yEnJuCQcbCVov7IQPy/qb0ovRmOJw7NJn7oZYeJRw5ktN8PAa2jIXHvf9G
h951zDPt7UsA57KY5nJROlQZMRypIpUKi9wBM98W+jEV8o6YTOluqGMM+5qX
3YtRuvwzOw+RoObO0y8i5C4sV/HxlQwFMvTL7u55/LMFE/KpMWD4TIYIRuW9
ed4IC3/H2XjGgAKD30ff0ufEY3RbG7Fg6vi4LVfof7UsAeJvLrroq9TxquRP
2GvxBpzFB/MUtlKg/OgkXYVNB5gXdL0su0GGvsiUK5r5ZAh7qTkpUUoCr/XJ
g6dDJ8C5mCf7tPh7WGaROH4ugYCOecv93ugmCiO3YvWyGriQutMxs8UFGTBJ
cP4u850T8Uw9z3ufvB8s0tkZGndxou9ZmQ5Ni2pgOimmHW/KgQ5L7Nzl7aUN
fR3Fcjl32NE6LPmmlrc+lHmJ09CUsSE/LHC9QJ0JLCYJyyp8ZEVBjelbae6c
h3v6ZpbvuFhRikZKz6V9dnCtMcDliSoLelx1+fW7GGeY7ubd9fYSM4IZurFW
Pw/41eNwbCGDCc39VvBf7PKFxuz3Zv4HyZihx60L5bUkuG+fzFWR+x7TkQMj
plgy8BRXsjW8asAYjhEsmLZTQDUt3J/rUgk2Z5Dv5Ee9fmlN+x6M9iXCE96B
EEbq9d31jdnEMATBFt5bnIv6FLjqEGUtsqkVotRcsrZ3k6F362UNOd1JyCHF
LYueaIdrM+6zCpQm7Ip6wg4TBgrkEwNc98i8wszVPhtI2lLga5a5g9jjM7By
rlZMg3q/fb40QtOo+AruPimz4aG+nufKJGKUXIutjGx6RKtC7S/EvQIkvVys
XXxxXIfan1y7BmwKCXmQumHzbCu1P4WnE+eEpKZAonZcfq6uDS5MXx9Xj6rE
DGmE0ftz1PUXm4ZNFGcwtsjJuXeIev8/KdXPJbe8gN1pgoM2VygQFBTDvMxS
hLnKLk5cpe5P0rYepHBjmcDieVTJntqfVkp6Vk0978I27c7oTOrxUmkHJUvv
ZGDZWnMNS9TXhRvUvcVki+DMxQXB/dTjhz+ztsSnTIHhB63rIiZtwKN6GGxP
R2G/HlRrGVGPL1eb4Km9nwbXpZJESdT+VBEi9g7yb4AQ2Emtp16PoVeKj+rH
s7AeulYtbWp/eiP/Mz6f7Ip9mPT1laO+3s4dxXHsbix4DWuZfqeOzxjbHevD
Jx5iOZubzOyo/YmbcYdiJ3EKPuXcuF4m3AaLm+MZn9+IxY6r2fyYp76fn+9T
CQO7G/AkmQv+cT67rIPPvnjfwBQYZ97+8fmj8qC1dCEK1h9lHDOk1nuqZmRG
2vwudphesugRlaWXFNwqxYJhapn/1GcqP9iMLdZ/MMGe3vXS+mM8czbumZye
mQJb6VzmAKY2wPMWmv/5wfMWnPG8BWc8b8EZz1twxvMWnPG8BWc8b8EZz1tw
xvMWnPG8BWc8b8EZz1twxvMWnPG8BWc8b8EZz1twxvMWnPG8BWc8b8EZz1tw
xvMWnPG8BWc8b8EZz1twxvMWnPG8BWc8b8EZz1twxvMWnPG8BWc8b8EZz1tw
xvMWnPG8BWc8b8EZz1tw/m/nLU43YuTERgYBrwfPW3DG8xac8bwFZzxvwRnP
W3DG8wSc/9t5gsQN8QkHzQG483LJ/QVPN0zUPGYMtBtaqx/PG3DG8waccZ+O
83/bpwvtTWa29e4HSwFvOmazbtgw6frhevrntfpx344z7qtx/qd9dfG6MhFS
7gcoiCacuD/ZDXtbitudCIMQnr24d7qeuOaz8Xpwn40z7mtxxn0tzv9pX5sU
Zhz3eX0/EGZ6pJQCuiEn0OToguqf1xv3uTjjPhTnf9qHzpcERJ9v74PlLx/G
dHhIUCB62fxb7gC8/K3MlDZBXPOleD2ZB3I1miI6MCMp/iLp6+S/7U8fkQe8
Rz/2w2J8kZuMYjcEOlg3pb8lrn3/v+pXy1wX1GfdByHEvoL7yUPimm/Fz4f7
Vpxxn4gz7hNx/k/7xGLni+WaNZ9AEaoY18d0g+vxYzcUOP6cL7hvxBn3dTj/
077uPuOXpuwLfaDgNtNHFCGBo4GO6G7PARjfLvGkapW45vPwenLM3x68/70D
K6UJqH/jRP7bfs+KEVMTz+8HWsf7OYU63WB1v3fLY8U/+9Nf9X/uqUTWPeqD
UH9Ih82ymLjmA/HzlWYT5GVRJ8YzO0HQNyH/2/3g9EJkfEHfAKS007GcpRD/
si9cPMzvU/J4EGZ3vnr3PpS45g/x+nF/iDPux3DG/RjO/2k/5pyieSMw8hNI
pHNOTCV1A6lEM9Fo7s/1Be7PcMb9E87/tH+6WPDA5qhUHzxuqVO7vZsEzaPl
IW/NBsD+R5gbsHav+Sm8nifO5yp8xDuxTA7RHav25L/tq6qTpB41RPfDpcJ3
Xv2G3WCwO75WwunP+f5XfVanvObl9p2DMBT3Ee2uIK75Lfx82vc2DIXR/jkf
/t2+60TkyqJe7QAwbBfVoftM/Mv+y6TvzieDiEFqf/wwXRNLXPNheL0VfTVP
P5v8Wf/f9WO8rBezo84OQvmmim2hOUR4FutXdjS8E9t19F6Vhjn5L/uzpML8
zRuqB2F83UI5yZ+45tPwenGftjb//8cX4Yz7orX+/x/2Ra1yJYPbPT5BkhHP
adO0bgi1rRYf/n/2A7hPwhn3MTj/0z6mnc6tZAtPHxwg5g33yJJgUc75AL/+
ANA+3yG9xNm95mvwevJ/7fg9pdaJ2WluDt94kfy3/c30yJARb3A/HP3ozHzV
pBt0fn7fdCn0z/v1r/oduoDfgkJbB+GURGAmoZq45nvw85Ufsp+5w/HnfPh3
+x+/nuf5KS8GIOzzjzMdX4h/2QeFiB+Kygigrsc0UreXPyCu+SG83kqbsAlj
1z/r/7u+6PApQZOB44MgI3DtgMdTIhQLHPlRkd2JHSXUieqeJf9ln9S8eKH5
QukgaBjc7CcGEdf8El7v/+aXXiW67tV714l5RXoENRiT/1ffJBHVIUWfNAiB
W0L93kYS/7J/yr1V08PUMggZidf4bvsQ13wUXm9AnEaY45dOTKtBfmuiIfn/
28//a73/+jz41/Pj53P+v+9vXPt/zJ6EP16vX/v+/3o8zv8HdNvBuw==
        "], {{{}, {}, {}, 
          {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
           GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwV0kdszXEAB/D32lCV4lIUB16LmKFi1rjUPlAPMWM0tUeVWhej1YNZMSpG
Qq1KqNFK7ZoHTUprXNTswXah1oHyeYdPvr/v9/d/7/DPP5SeGV4aFQgEglRw
WblPBTdZy0WGcI0lnKIZ2ZyjF7M5xBd/lCIXcJxoOjKRnTx131h2Zzr7qLX9
po3zaPK4p38myrkDE8jnie0Nv2itj2ITd/XHvOYnrWwjyeWO/omgc3vGs4NH
tlf8IEEfQQ639Y+RF+KcRJjtVNtiZTemUcBLWz85l0K+6y3lcDZySx8sF1NE
U5KZxUE+uB8g53OMf3qWPEMi49hGlX21LGEgV1nICRpxg+UU05VLTGUvL/y2
XK7iAn25whyOUOf+ulzGaVpQxjA2RL4D92tkKYNYxEmasIKz9GQmB3jv+f5y
Hkep10Myja081GNkF6awh+e2PjKDw3zTm8uhrKdcj5M9mMF+3tn+0s55LFt4
oDeUnZnMbmpsX4l3TmVd5H3pb/lDW30Mm6nUG8hOTGIXz2wr5Xl68x9oSGet

             "]]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
          {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV03WU1GUUBuClWbq7lpQGYelulhIMsFCahZWlwUDprl1gQUEJARMk7AKU
VrAVLDDADrAD8bl/PHPf7z1z5sz87jdJQ9MHjMuWkJCwzkvMbl7+NZ9nFlfR
hGH6snwgP8BtZKe77pL5ArPpT1OG68txSt7IOHLQQ/ef+SJzGEAyI/TlOS1v
Ip2c9NRdNl9iLlfTjJH6Cnwob2Y8uUiJH8HLxjyuoTmjdBX5SN7CBHLTK343
++T5XEsLRusq8bH8IBPJQ29ddvbLC7iOlqTqKvOJvJVJ5KWPLgcH5IUMpBVj
dFX4VN7GZBLpq8vJK/IiBtGasbokzsjbmUI++uly8aq8mOtpQ5quKmflh5hK
/tinLjcH5SXcQNvYp64an8kPM40CsU9dHg7JS7mRdrFPXXU+lx9hOgVjn7q8
HJaXcRPtKRS70ydyRF7OzXSgcOxJn4+j8goG05EisRN9fo7JK7mFThSN568v
wHE5g1vpTLF41vqCvCZnMoQuFKcEJSlFacpQlnKUpwIVqURlqpBEVarFXnxu
IV6XVzGUrlSPHegLc0JezTC6ka6rwRfyo9xOjdiBrggn5TUc8McabnZnvL4m
X8qPcQc1Yw+6orwhZzEiduZcn+/kPfRggnMtzsmPc2dwbsxP8tPUij05F+NN
eS33yMn8Io+M/coN+F7eS08mOl/BeXkHs+UW/C7fFeQr+TnumtmRZ+R5Zmv+
intgdonPiftgFmclbzkvNNuxmnXOM81mZPJr3EezE1mMiudpNiSDH+L/YHZg
DU86zzVbsYo/436anUmRJ5m1+UpeZLZnpzzHbMkf8owgN+GC/Czz5Tb8LdeO
eyuX4G35XmbJzflNHh37kxvxo/wUvZjsXIev5Se4mzpxz3UleUe+j1R6M0VX
l2/kXbEr6sbd15XiXXk9Y+hDvbj7+tK8J29gLH2pTwMa0ojGcZe9rwzvy/eT
Rj+m6urxrbw79hHf1bkpF+XnWCC35R95hdmVtXEPnP8Hwmev/A==
            "]]}, 
          {Hue[0.9060679774997897, 0.6, 0.6], 
           LineBox[{408, 635, 576, 529, 494, 471, 458, 409, 410, 411, 412, 
            413, 414, 415, 416, 417, 418, 419, 420, 421, 422, 423, 424, 425, 
            426, 427, 428, 429, 430, 431, 432, 433, 434, 435, 436, 437, 438, 
            439, 440, 441, 442, 443, 636, 577, 530, 495, 472, 459, 648, 589, 
            542, 507, 484, 664, 605, 558, 523, 444, 637, 578, 531, 682, 623, 
            496, 670, 611}], LineBox[CompressedData["
1:eJwV0klQznEcBvB/mYQRlxAOZBtbQ8a+XSzhYHkx1glN1iJLwkUKh0KMrREz
hDBjC41siWrGxZZcrOVgd7GEQ5ZPh8883+f5ve/Me3hjk9JCq8KCILjHtfAg
GEgx63nmYa+cRU8iuG/LkZPpRIP+ljI262OI5qv+nH3u2fSiKQ9suXIKnfmj
v+OQO5F+tOS2LVOOpQ3f9KMymUG80PfLOfQmkoe2HXIqsfzVj8ulDOW9XiAX
0J8LrCOKU6QwkitspNznt8hxXKUtZ1nNLb57PyYXc53BXCKj8ffz0vsBOZdS
+nCetZTRjCJWcIMRXGYDj3x3p5xGF86xhn/2E3IZw/igH5YLiacVp0llFHe8
Z8nxtOOHXiiXMIRX+kE5j74057FtlwzRlYCPtrtkuxOIoV5/TTV5+nS6EcYn
WwVb3RNoz0+9lidUss02kQ780uuoYbc+g+6E89lWxXb3JDryW39Dvns+cbTg
qW2PnEkPmnCS5Qzni/cjchEDuEg6rTnDSm4ymhI2Nf4P+A9NlmYU
            "]], 
           LineBox[{453, 646, 587, 540, 505, 482, 469, 454, 455, 456, 647, 
            588, 541, 506, 483, 470, 657, 598, 551, 516, 493, 669, 610, 563, 
            528, 681, 622, 575, 693, 634, 704, 457}]}, 
          {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{708, 710, 707}], 
           LineBox[{709, 711, 706}]}}, {{}, {}, {}, {}}}],
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->True,
       AxesLabel->{
         FormBox["t", TraditionalForm], 
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(i\\)]\\)(t)\"", 
          TraditionalForm]},
       AxesOrigin->{0, 0},
       Epilog->{{
          GrayLevel[0], 
          InsetBox[
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SuperscriptBox[\\(\[Chi]\\), \
\\(*\\)]\\)\[TildeTilde].344\"", FontSize -> 12, StripOnInput -> False], 
            TraditionalForm], {-0.35, 0.08}, {0, 0}]}},
       LabelStyle->Directive[FontSize -> 16],
       Method->{"AxesInFront" -> True},
       PlotLabel->FormBox[
         StyleBox[
         "\"(iv)  \[Alpha]=.2 and \\!\\(\\*SubscriptBox[\\n \
StyleBox[\\\"t\\\",\\nFontSlant->\\\"Italic\\\"], \
\\\"i\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"\[Tilde]\\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\\!\\(\\*\\nStyleBox[\\\"N\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\
\\nStyleBox[\\\"(\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\
\"0\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"1\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\"", FontSize -> 16, StripOnInput -> False], TraditionalForm],
       PlotRange->{{-4, 1}, {0, 0.5}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], Automatic},
       Ticks->{{{-0.311, 
           FormBox[
           "\"\\!\\(\\*SuperscriptBox[\\(t\\), \
\\(*\\)]\\)\[TildeTilde]-.311\"", TraditionalForm]}, {0.589, 
           FormBox[
           "\"\\!\\(\\*SuperscriptBox[\\(t\\), \\(\[Degree]\\)]\\)\
\[TildeTilde].589\"", TraditionalForm]}}, None}], {555, -446.2383539249432}, 
      ImageScaled[{0.5, 0.5}], {360, 222.49223594996215`}]}}, {}},
  ContentSelectable->True,
  ImageSize->{1031., Automatic},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{3.4839964537611933`*^9, 3.4839971618531933`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.483663337564492*^9, 3.4836633457923145`*^9}, {
   3.483663385216257*^9, 3.4836634606988044`*^9}, {3.483663493766111*^9, 
   3.4836635380015335`*^9}, {3.483663687606493*^9, 3.4836636894126735`*^9}, {
   3.4836637585785894`*^9, 3.483663780480779*^9}, {3.4836638373404646`*^9, 
   3.4836638460373344`*^9}, 3.4836638765933895`*^9, {3.483663945356265*^9, 
   3.483663988001529*^9}, {3.483664140686796*^9, 3.48366415452818*^9}, 
   3.4836649770814276`*^9}],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 3}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 5}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Code for Simulations in Section C of the on-line Appendix for ``Influence \
wihtout Bribes:  A Non-Contracting Model of Campaign Giving and Policymaking\"\
\>", "Subtitle",
 CellChangeTimes->{{3.51190563349506*^9, 3.51190571086506*^9}}],

Cell[CellGroupData[{

Cell["Code for Plots of Simulations", "Section",
 CellChangeTimes->{{3.4834855699833293`*^9, 3.483485575758907*^9}}],

Cell["\<\
The simulations for Section C of the appendix consider the case of \
policymaking on an issue of low-salience (i.e, \[Alpha]=0).  In what follows \
we re-write the key conditions as explicity function of the cutpoint of the \
incumbent's strategy:\
\>", "Text",
 CellChangeTimes->{{3.483484921795517*^9, 3.483484998894226*^9}, {
  3.511912849286564*^9, 3.5119128518618217`*^9}, {3.511913192741906*^9, 
  3.5119132790245333`*^9}}],

Cell["The belief about the incumbent giiven cutpoint c:", "Text",
 CellChangeTimes->{{3.483485007455082*^9, 3.483485018615198*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Mu]ixe", "[", "c_", "]"}], "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"CDF", "[", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"m", ",", "v"}], "]"}], ",", "0"}], "]"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"CDF", "[", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"m", ",", "v"}], "]"}], ",", "c"}], "]"}]}], ")"}]}]}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.483296226735053*^9, 3.4832962473831177`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"1", "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"Erf", "[", 
       FractionBox["m", 
        RowBox[{
         SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
  RowBox[{"1", "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "-", 
      RowBox[{"Erf", "[", 
       FractionBox[
        RowBox[{"c", "-", "m"}], 
        RowBox[{
         SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]], "Output",
 CellChangeTimes->{{3.4832962431196914`*^9, 3.4832962493983192`*^9}, 
   3.4854544981240587`*^9}]
}, Open  ]],

Cell["\<\
Donations to the incumbent and challenger as a function of the cuptoint given \
that x is chosen:\
\>", "Text",
 CellChangeTimes->{{3.483485027008037*^9, 3.483485064465782*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"dixe", "[", "c_", "]"}], "=", 
   RowBox[{"Piecewise", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "kc"}], "-", "ki", "+", 
         SqrtBox[
          RowBox[{
           RowBox[{"-", "kc"}], " ", "tg", " ", 
           RowBox[{"(", 
            RowBox[{"\[Mu]c", "-", "\[Mu]ix"}], ")"}]}]]}], ",", "    ", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["kc", "2"], "+", 
            SuperscriptBox["ki", "2"], "+", 
            RowBox[{"kc", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "ki"}], "+", 
               RowBox[{"tg", " ", 
                RowBox[{"(", 
                 RowBox[{"\[Mu]c", "-", 
                  RowBox[{"\[Mu]ixe", "[", "c", "]"}]}], ")"}]}]}], ")"}]}]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], " ", ">", "0"}]}], 
       "            ", "}"}], ",", 
      RowBox[{"{", "  ", 
       RowBox[{"0", ",", "       ", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["kc", "2"], "+", 
            SuperscriptBox["ki", "2"], "+", 
            RowBox[{"kc", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "ki"}], "+", 
               RowBox[{"tg", " ", 
                RowBox[{"(", 
                 RowBox[{"\[Mu]c", "-", "\[Mu]ix"}], ")"}]}]}], ")"}]}]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], "  ", "\[LessEqual]", 
         "0"}]}], "    ", "}"}]}], " ", "}"}], " ", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.483296118443225*^9, 3.483296120474428*^9}, {
  3.483296215790959*^9, 3.4832962211594954`*^9}, {3.4832962535287323`*^9, 
  3.483296260481427*^9}}],

Cell[BoxData[
 RowBox[{"\[Piecewise]", GridBox[{
    {
     RowBox[{
      RowBox[{"-", "kc"}], "-", "ki", "+", 
      SqrtBox[
       RowBox[{
        RowBox[{"-", "kc"}], " ", "tg", " ", 
        RowBox[{"(", 
         RowBox[{"\[Mu]c", "-", 
          FractionBox[
           RowBox[{"1", "+", 
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"Erf", "[", 
                FractionBox["m", 
                 RowBox[{
                  SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
           RowBox[{"1", "+", 
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "-", 
               RowBox[{"Erf", "[", 
                FractionBox[
                 RowBox[{"c", "-", "m"}], 
                 RowBox[{
                  SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
         ")"}]}]]}], 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["kc", "2"], "+", 
         SuperscriptBox["ki", "2"], "+", 
         RowBox[{"kc", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "ki"}], "+", 
            RowBox[{"tg", " ", 
             RowBox[{"(", 
              RowBox[{"\[Mu]c", "-", 
               FractionBox[
                RowBox[{"1", "+", 
                 RowBox[{
                  FractionBox["1", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
                RowBox[{"1", "+", 
                 RowBox[{
                  FractionBox["1", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
              ")"}]}]}], ")"}]}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
    {"0", 
     TagBox["True",
      "PiecewiseDefault",
      AutoDelete->False,
      DeletionWarning->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.84]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}]}]], "Output",
 CellChangeTimes->{3.4832962229536753`*^9, 3.4832962660339823`*^9, 
  3.485454500900894*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"dcxe", "[", "c_", "]"}], "=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "kc"}], "-", "ki", "+", 
        SqrtBox[
         RowBox[{"ki", " ", "tg", " ", 
          RowBox[{"(", 
           RowBox[{"\[Mu]c", "-", "\[Mu]ix"}], ")"}]}]]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          RowBox[{"ki", " ", "tg", " ", 
           RowBox[{"(", 
            RowBox[{"\[Mu]c", "-", "\[Mu]ix"}], ")"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], "     ", ">", "0"}]}], 
      "            ", "}"}], ",", 
     RowBox[{"{", "  ", 
      RowBox[{"0", ",", "       ", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          RowBox[{"ki", " ", "tg", " ", 
           RowBox[{"(", 
            RowBox[{"\[Mu]c", "-", 
             RowBox[{"\[Mu]ixe", "[", "c", "]"}]}], ")"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], "  ", "\[LessEqual]", 
        "0"}]}], "    ", "}"}]}], " ", "}"}], " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.483296277929172*^9, 3.4832962881861973`*^9}}],

Cell[BoxData[
 RowBox[{"\[Piecewise]", GridBox[{
    {
     RowBox[{
      RowBox[{"-", "kc"}], "-", "ki", "+", 
      SqrtBox[
       RowBox[{"ki", " ", "tg", " ", 
        RowBox[{"(", 
         RowBox[{"\[Mu]c", "-", 
          FractionBox[
           RowBox[{"1", "+", 
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"Erf", "[", 
                FractionBox["m", 
                 RowBox[{
                  SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
           RowBox[{"1", "+", 
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "-", 
               RowBox[{"Erf", "[", 
                FractionBox[
                 RowBox[{"c", "-", "m"}], 
                 RowBox[{
                  SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
         ")"}]}]]}], 
     RowBox[{
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       FractionBox[
        RowBox[{"ki", " ", "tg", " ", 
         RowBox[{"(", 
          RowBox[{"\[Mu]c", "-", 
           FractionBox[
            RowBox[{"1", "+", 
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                RowBox[{"Erf", "[", 
                 FractionBox["m", 
                  RowBox[{
                   SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
            RowBox[{"1", "+", 
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "-", 
                RowBox[{"Erf", "[", 
                 FractionBox[
                  RowBox[{"c", "-", "m"}], 
                  RowBox[{
                   SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], ")"}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
    {"0", 
     TagBox["True",
      "PiecewiseDefault",
      AutoDelete->False,
      DeletionWarning->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.84]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}]}]], "Output",
 CellChangeTimes->{3.483296289631342*^9, 3.4854545038805323`*^9}]
}, Open  ]],

Cell["\<\
Note, donations to the  incumbent and the challenger do not depend upon the \
cutpoint when y is chosen:\
\>", "Text",
 CellChangeTimes->{{3.4834850537127075`*^9, 3.4834850800263386`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"diye", "=", "0"}]], "Input",
 CellChangeTimes->{3.4832962992963085`*^9}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.483296301381517*^9, 3.485454506236163*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dcye", "=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "kc"}], "-", "ki", "+", 
        SqrtBox[
         RowBox[{"ki", " ", "tg", " ", 
          RowBox[{"(", 
           RowBox[{"\[Mu]c", "-", "\[Mu]iy"}], ")"}]}]]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          RowBox[{"ki", " ", "tg", " ", 
           RowBox[{"(", 
            RowBox[{"\[Mu]c", "-", "\[Mu]iy"}], ")"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], "     ", ">", "0"}]}], 
      "            ", "}"}], ",", 
     RowBox[{"{", "  ", 
      RowBox[{"0", ",", "       ", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          RowBox[{"ki", " ", "tg", " ", 
           RowBox[{"(", 
            RowBox[{"\[Mu]c", "-", "\[Mu]iy"}], ")"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], "  ", "\[LessEqual]", 
        "0"}]}], "    ", "}"}]}], " ", "}"}], " ", "]"}]}]], "Input",
 CellChangeTimes->{3.483296338276206*^9}],

Cell[BoxData[
 RowBox[{"\[Piecewise]", GridBox[{
    {
     RowBox[{
      RowBox[{"-", "kc"}], "-", "ki", "+", 
      SqrtBox[
       RowBox[{"ki", " ", "tg", " ", "\[Mu]c"}]]}], 
     RowBox[{
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       FractionBox[
        RowBox[{"ki", " ", "tg", " ", "\[Mu]c"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
    {"0", 
     TagBox["True",
      "PiecewiseDefault",
      AutoDelete->False,
      DeletionWarning->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.84]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}]}]], "Output",
 CellChangeTimes->{3.483296341785557*^9, 3.4854545092314014`*^9}]
}, Open  ]],

Cell[TextData[{
 "We now characterize the interested group's ",
 StyleBox["expected ",
  FontSlant->"Italic"],
 "campaign expenditure as a function of the cutpoint of the incumbent's \
strategy:"
}], "Text",
 CellChangeTimes->{{3.483485092314567*^9, 3.483485133164652*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"exp", "[", "c_", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"CDF", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"m", ",", "v"}], "]"}], ",", "c"}], "]"}]}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dixe", "[", " ", "c", "]"}], "+", 
      RowBox[{"dcxe", "[", "c", " ", "]"}]}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"CDF", "[", 
      RowBox[{
       RowBox[{"NormalDistribution", "[", 
        RowBox[{"m", ",", "v"}], "]"}], ",", "c"}], "]"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"diye", "+", "dcye"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4832963815325313`*^9, 3.483296434975875*^9}, {
  3.4832964755359306`*^9, 3.4832964795923367`*^9}, {3.483296546389015*^9, 
  3.4832965968050566`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"Erf", "[", 
      FractionBox[
       RowBox[{"c", "-", "m"}], 
       RowBox[{
        SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"\[Piecewise]", GridBox[{
       {
        RowBox[{
         RowBox[{"-", "kc"}], "-", "ki", "+", 
         SqrtBox[
          RowBox[{"ki", " ", "tg", " ", "\[Mu]c"}]]}], 
        RowBox[{
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          FractionBox[
           RowBox[{"ki", " ", "tg", " ", "\[Mu]c"}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
       {"0", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->False,
         DeletionWarning->True]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "-", 
        RowBox[{"Erf", "[", 
         FractionBox[
          RowBox[{"c", "-", "m"}], 
          RowBox[{
           SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"\[Piecewise]", GridBox[{
        {
         RowBox[{
          RowBox[{"-", "kc"}], "-", "ki", "+", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", "kc"}], " ", "tg", " ", 
            RowBox[{"(", 
             RowBox[{"\[Mu]c", "-", 
              FractionBox[
               RowBox[{"1", "+", 
                RowBox[{
                 FractionBox["1", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
               RowBox[{"1", "+", 
                RowBox[{
                 FractionBox["1", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "-", 
                   RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
             ")"}]}]]}], 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["kc", "2"], "+", 
             SuperscriptBox["ki", "2"], "+", 
             RowBox[{"kc", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "ki"}], "+", 
                RowBox[{"tg", " ", 
                 RowBox[{"(", 
                  RowBox[{"\[Mu]c", "-", 
                   FractionBox[
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
                    RowBox[{"1", "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
                  ")"}]}]}], ")"}]}]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
        {"0", 
         TagBox["True",
          "PiecewiseDefault",
          AutoDelete->False,
          DeletionWarning->True]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.84]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}], "+", 
     RowBox[{"\[Piecewise]", GridBox[{
        {
         RowBox[{
          RowBox[{"-", "kc"}], "-", "ki", "+", 
          SqrtBox[
           RowBox[{"ki", " ", "tg", " ", 
            RowBox[{"(", 
             RowBox[{"\[Mu]c", "-", 
              FractionBox[
               RowBox[{"1", "+", 
                RowBox[{
                 FractionBox["1", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
               RowBox[{"1", "+", 
                RowBox[{
                 FractionBox["1", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "-", 
                   RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
             ")"}]}]]}], 
         RowBox[{
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           FractionBox[
            RowBox[{"ki", " ", "tg", " ", 
             RowBox[{"(", 
              RowBox[{"\[Mu]c", "-", 
               FractionBox[
                RowBox[{"1", "+", 
                 RowBox[{
                  FractionBox["1", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
                RowBox[{"1", "+", 
                 RowBox[{
                  FractionBox["1", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], ")"}]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
        {"0", 
         TagBox["True",
          "PiecewiseDefault",
          AutoDelete->False,
          DeletionWarning->True]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.84]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.483296497892166*^9, 3.4832965985582314`*^9, 
  3.4854545137086587`*^9}]
}, Open  ]],

Cell["\<\
The formula for the maximal donation the group gives as a function of the \
cuptoint:\
\>", "Text",
 CellChangeTimes->{{3.4834851441647515`*^9, 3.4834851590852437`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"maxe", "[", "c_", "]"}], "=", 
    RowBox[{"Max", "[", 
     RowBox[{
      RowBox[{"dixe", "[", "c", "]"}], ",", 
      RowBox[{"dcxe", "[", "c", "]"}], ",", "diye", ",", "dcye"}], "]"}]}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.4832968282101946`*^9, 3.483296881313504*^9}}],

Cell[BoxData[
 RowBox[{"Max", "[", 
  RowBox[{"0", ",", 
   RowBox[{"\[Piecewise]", GridBox[{
      {
       RowBox[{
        RowBox[{"-", "kc"}], "-", "ki", "+", 
        SqrtBox[
         RowBox[{"ki", " ", "tg", " ", "\[Mu]c"}]]}], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          RowBox[{"ki", " ", "tg", " ", "\[Mu]c"}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
      {"0", 
       TagBox["True",
        "PiecewiseDefault",
        AutoDelete->False,
        DeletionWarning->True]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.84]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}]}], ",", 
   RowBox[{"\[Piecewise]", GridBox[{
      {
       RowBox[{
        RowBox[{"-", "kc"}], "-", "ki", "+", 
        SqrtBox[
         RowBox[{
          RowBox[{"-", "kc"}], " ", "tg", " ", 
          RowBox[{"(", 
           RowBox[{"\[Mu]c", "-", 
            FractionBox[
             RowBox[{"1", "+", 
              RowBox[{
               FractionBox["1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{"Erf", "[", 
                  FractionBox["m", 
                   RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
             RowBox[{"1", "+", 
              RowBox[{
               FractionBox["1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "-", 
                 RowBox[{"Erf", "[", 
                  FractionBox[
                   RowBox[{"c", "-", "m"}], 
                   RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
           ")"}]}]]}], 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           SuperscriptBox["kc", "2"], "+", 
           SuperscriptBox["ki", "2"], "+", 
           RowBox[{"kc", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "ki"}], "+", 
              RowBox[{"tg", " ", 
               RowBox[{"(", 
                RowBox[{"\[Mu]c", "-", 
                 FractionBox[
                  RowBox[{"1", "+", 
                   RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"Erf", "[", 
                    FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
                  RowBox[{"1", "+", 
                   RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"Erf", "[", 
                    FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
                ")"}]}]}], ")"}]}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
      {"0", 
       TagBox["True",
        "PiecewiseDefault",
        AutoDelete->False,
        DeletionWarning->True]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.84]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}]}], ",", 
   RowBox[{"\[Piecewise]", GridBox[{
      {
       RowBox[{
        RowBox[{"-", "kc"}], "-", "ki", "+", 
        SqrtBox[
         RowBox[{"ki", " ", "tg", " ", 
          RowBox[{"(", 
           RowBox[{"\[Mu]c", "-", 
            FractionBox[
             RowBox[{"1", "+", 
              RowBox[{
               FractionBox["1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{"Erf", "[", 
                  FractionBox["m", 
                   RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
             RowBox[{"1", "+", 
              RowBox[{
               FractionBox["1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "-", 
                 RowBox[{"Erf", "[", 
                  FractionBox[
                   RowBox[{"c", "-", "m"}], 
                   RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], 
           ")"}]}]]}], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          RowBox[{"ki", " ", "tg", " ", 
           RowBox[{"(", 
            RowBox[{"\[Mu]c", "-", 
             FractionBox[
              RowBox[{"1", "+", 
               RowBox[{
                FractionBox["1", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", 
                  RowBox[{"Erf", "[", 
                   FractionBox["m", 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}], 
              RowBox[{"1", "+", 
               RowBox[{
                FractionBox["1", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "-", 
                  RowBox[{"Erf", "[", 
                   FractionBox[
                    RowBox[{"c", "-", "m"}], 
                    RowBox[{
                    SqrtBox["2"], " ", "v"}]], "]"}]}], ")"}]}]}]]}], ")"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"kc", "+", "ki"}], ")"}], "2"]]}], ">", "0"}]},
      {"0", 
       TagBox["True",
        "PiecewiseDefault",
        AutoDelete->False,
        DeletionWarning->True]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.84]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}]}]}], "]"}]], "Output",
 CellChangeTimes->{3.483296883002673*^9, 3.4854545166570964`*^9}]
}, Open  ]],

Cell["\<\
Plots of the equilibrium cutpoint, equilibrium group influence, equlitbrium \
ratio of the group's benefit from securing its preferred policy to expected \
spending, equilibrium ratio of the group's benefit from securing its \
preferred policy to maximal group spending, and equilibrium campaign spending \
(solid lines give spending when x is chosen, dashed lines give spending when \
spending when y is chosen, blue line denote donations to incumbnet, and rend \
lines denot donations to challenger\
\>", "Text",
 CellChangeTimes->{{3.48348522856019*^9, 3.48348534857419*^9}, {
  3.5119133309772196`*^9, 3.5119133962612195`*^9}, {3.5119134400432196`*^9, 
  3.5119134562182198`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", "=", "5"}], ",", 
     RowBox[{"\[Mu]c", "=", ".5"}], ",", " ", 
     RowBox[{"ki", "=", ".5"}], ",", 
     RowBox[{"kc", "=", ".5"}], ",", 
     RowBox[{"tg", "=", "10"}], ",", 
     RowBox[{"m", "=", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"c", "/.", 
        RowBox[{"FindRoot", "[", "  ", 
         RowBox[{
          RowBox[{"cut", "\[Equal]", "c"}], ",", 
          RowBox[{"{", 
           RowBox[{"c", ",", 
            RowBox[{"-", "1"}]}], " ", "}"}]}], "  ", "]"}]}], "  ", ",", 
       RowBox[{"{", 
        RowBox[{"v", ",", "1", ",", "2"}], "}"}]}], "]"}], "       ", ",", 
     " ", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"CDF", "[", 
         RowBox[{
          RowBox[{"NormalDistribution", "[", 
           RowBox[{"m", ",", "v"}], "]"}], ",", "0"}], "]"}], "-", " ", 
        RowBox[{"CDF", "[", 
         RowBox[{
          RowBox[{"NormalDistribution", "[", 
           RowBox[{"m", ",", "v"}], "]"}], ",", 
          RowBox[{"c", "/.", " ", 
           RowBox[{"FindRoot", "[", "  ", 
            RowBox[{
             RowBox[{"cut", "\[Equal]", "c"}], ",", 
             RowBox[{"{", 
              RowBox[{"c", ",", 
               RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"v", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", " ", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"tg", "/", 
        RowBox[{"(", 
         RowBox[{"exp", "[", " ", 
          RowBox[{"c", "/.", " ", 
           RowBox[{"FindRoot", "[", "  ", 
            RowBox[{
             RowBox[{"cut", "\[Equal]", "c"}], ",", 
             RowBox[{"{", 
              RowBox[{"c", ",", 
               RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}], "]"}], ")"}]}], 
       " ", ",", 
       RowBox[{"{", 
        RowBox[{"v", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", " ", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"tg", "/", 
        RowBox[{"(", 
         RowBox[{"maxe", "[", " ", 
          RowBox[{"c", "/.", " ", 
           RowBox[{"FindRoot", "[", "  ", 
            RowBox[{
             RowBox[{"cut", "\[Equal]", "c"}], ",", 
             RowBox[{"{", 
              RowBox[{"c", ",", 
               RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}], "]"}], ")"}]}], 
       " ", ",", 
       RowBox[{"{", 
        RowBox[{"v", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", " ", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"dixe", "[", " ", 
          RowBox[{"c", "/.", " ", 
           RowBox[{"FindRoot", "[", "  ", 
            RowBox[{
             RowBox[{"cut", "\[Equal]", "c"}], ",", 
             RowBox[{"{", 
              RowBox[{"c", ",", 
               RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}], "  ", "]"}], ",", 
         " ", 
         RowBox[{"dcxe", "[", " ", 
          RowBox[{"c", "/.", " ", 
           RowBox[{"FindRoot", "[", "  ", 
            RowBox[{
             RowBox[{"cut", "\[Equal]", "c"}], ",", 
             RowBox[{"{", 
              RowBox[{"c", ",", 
               RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}], " ", "]"}], ",", 
         " ", "diye", ",", " ", "dcye"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"v", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Red", ",", 
          RowBox[{"{", 
           RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Red", ",", "Dashed"}], "}"}]}], "}"}]}]}], "]"}]}], "  ", 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.48329664564894*^9, 3.483296706564031*^9}, {
  3.483296908460219*^9, 3.4832969291172843`*^9}, {3.4832969692552977`*^9, 
  3.483297044957867*^9}, {3.4832972909274616`*^9, 3.4832973489212604`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxF0XsslXEcx/FDmstYupwJpdyirDhu5Vj9jpMhk9ssUZs6i9EanancQ9hc
I2Nix1HRcFxKTQfFE1uIw2g4cxKRk0vUgwj9nunpn+f7x3ffvf76/PE2FkT5
h6qyWCw+ff+//e343SwWifidEeI4G5KwEmuz7SzBJjKxWZgvuF8rKSO/Gry1
Z5a7ugner3x47p3HCuN50VrahQow33D6sC4JDkzM3Cp1X2Uc1BBtmlMO/lo1
97R5GWySzBZUuq4xXjgiu9dXDBYVdI9fVoK1ZuPvS5x/M6YoaYxDLrhuu/FV
2jewW8+Cs5PTOuPQ4AZ9yywwb+iEk2IKXKHNafhgs8G4zWpFcCcT3GmwHpY9
Cb44lEqMn/rDuCi8N2gpA3ytp8TjjBx8cEOS8ePYJuMc9Vg1QRI4bWpAvncQ
fLrsy1K6+RZjuRnHNyQBjO/qaET3gydqK1U8TbYZu1R1+QRHgwsjzZeGu8Bi
Q36ftv5fxtb5czglApygdBO2vAd7qVpzj+/D0ONXsJ+KADwvKLKoiQF3jw1Q
3nngDrurr1sKwc0Fi+Emj8GrFt5jiaVgG6LpvLwMHHmJ3cQRYVRSn2GkoF2/
HGuUW47RCJec9OKQxGL6RM53MUYHLIrKCNqWh3hbvCcYuUuFfra2JFHlqT6y
/gwjg8+Kl3p2JDEzfdPFtwqjxO2woGzaR+MGGyXPMfIfPUlh2qLq4qyQGoya
Rm45ztjTfdXM0McGjJBIGlXvSPfq4ElELRh1+LRTiEsSitgNPNWKkbHGm1YJ
bVu7eh/Ttxgp27KFbGd6r1pvvbYdo7qV3pFF2vxHP5G0CyPVT+KI4rMkoXpD
NDosw+hK57RsgUcSDzQ3WerTGCVLvRPy3UkiNeBFoFCTQrt0tdMHA0iCOyB3
07xOIUXovJaXkCSm2K7pGlIK7aQ47GznkkRXx7COsoVCtUars4V5JPEP0bhF
Uw==
       "]]}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesOrigin->{1., -1.035},
    PlotRange->{{1, 2}, {-1.0345639174646897`, -1.0118347347270888`}},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]}], ",", 
   GraphicsBox[{{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVknk41WkfxjkjYpqSSIuKU1GT1zJKdfR2y3IyZUumTVlOyk7SlJCKChES
bXNooSwtXnoNyRJvI/1+x5atGhOKLJMc27E9x29+7x/P9b0+13Nf93M99/3V
EgQ4HOHIyMicZs//5/pjIbNkZMRQ2cK/ZaLQggzZ8dRtsmLc/5H4yMm3QPVa
kHEkR4ycz3F7auRaMFLg6yE/S4yeJAS5cFqQP+38Zo6SGFvTBqkL0mYYRJlf
Wawqxvm56SONI81YlzZHzWiNGE/lrNdd6GgGV5S26qi9GMTE21i3uBm00pmL
CZliHK++m2nv2YzJeV284Qn23meW36/LmrGgO35ridUQsp6bK19ubkKvcCTy
5ztDaNpYvEknpglmSzuXKYuH4FFr5OJq3oS9YdGTt7YP44OlrNRtshH7nwSt
jE0dxrG6Hien/EZ0ZPTcKxgYBi+0yf1SYCO4Z9UE6RYjyNoacKNMtxF9K0Qn
qZQRHIqoMBoceAthYtX7fd0jKNKbzX+Q9xZKXSHhOSajKK5wXZcR+BZSaeGp
DXGj6DSQLTbe+BaPpp7mR34eRbdVjL7ZZAP4r/tMNm8ew4mwP/REpQ04cuDJ
4jUxY/A/cPBBVFQDTOt/3PyhfQxz7d63fbNpwJ05hk/+MJDAMKNa4Li4AcXr
hgQnoiX40mxSFd9Zj4olY0cvf5SgaM63Qc7jetjUny9/rzeOobNOXhqh9Uj2
rN7/9eI4luxepGS8vR6ur29YbWodx6a1H6er1OuxSJJz8W/tCeiFyBr4NNUh
ViFYTnBmAnFbeJeuB9Uhsr2mdX7tBJoUN4wtXFqHjbf/+nph9SQS08crtEtr
0brK0N4ldBLeYyHcDkEtyK8/zA6iJ5Ex/8/8Q8q1aMtOl93BncJ9k9z43KIa
bMuotDsQNIW2W9H6oZ41SPJf/bWhcgpWaVrWTktrkLbUjJqzeBp7ws+Y2b4R
QT+hh5zzmka0pdAD4SKEdvMDi15Ow0q3SztYTwRrjj5vrQrB+pioa37dNJi8
2NueCwi46ss/7eqike/WO5WpSpCl9dzS+DONRRX3XmirEyQaje5kOmh0nVX9
9yoNAkrR3DGpjUaYdBIrtAn+u83boaSRxqOJV5ZqPIKws1qSFZU0nLO0Hjqa
EMSnGHbKV9BQ3hcun7yFoLiZ0zlQTuNk4cbXKiBQDelYXlJKw+xkjpWyBevX
Y3Nt/3MaH0YSdn5vS3Cwavmhm/+hoTR4YJesgEAuVPno6js0rC6VlTkdJjDY
6WU3nkrj0jKu7u/uBNVa7fZvhDQ41n3yPh4Eyq7qQr/bNCazTpU0+RIkpx/b
XZhCo1eQrJN1iqDeN9TcLo6G9tR4Muc0wbkfvJ9wY2m4X3XiHAohcG/YqS+J
odFRzv1r/hmWf/kYkhpFo1UjLyk0gqDNTWIwEEGjqqVGanuFQIP3eOHV0zTk
/A19suMJNLuTZ44Es/+blfLuu0SCDu72Gd4pGmVGB58VJRGUSKUW3SdoEKpc
c0EygXGANLY4iAZPsDLeL4VAV6OkP+E4jYLEfk/uTYJXTb6DvGM0hnVsW8Ju
EbgW7k9RDqBhUJ5n3nqbwCFy2uGLHw3/PWp5hkKC4OSUPluWHw8EL49LJegy
uWvT6Euj/0Jb7Jc0AlHvroK9LK/RMJ00vUvwNCxHs82HRsYOhaax+6x/ux2n
25vGp07vbfYZBJsChcFeLGuern2a84Bg9rGE4QEvGsLMlBiXLIKXPM8hiSeN
ZLlVePOE4PHTziWKHjQiy0xzhEVsn+7vNfQOs/0GS0j7c4JKt3z5FwIaPxk9
tlv5gt2X7MKR7Sx/ylQfyy4l2FLAb3VzY/O7+g2FlQT2Cidepbiw/boLmxtE
BOF/jxnPONGIUJyQUegkmPDsC21wpHHeMXdvoKIU3JrV587z2TxrWvmKblLU
z94qzNSh0a5mcWF2oRTWzwQV1xVpKK7evHCbwgzua3w9XjpA4dvC3r4tzjPw
zC9uq6ijsK9uhcrx3Bm8Sno2InlGIXfvb9FzmRmYZk/s7rlJoaKy3tT/FwbG
gVbd5aGsfjTeRuEhA1f/DcISVwpVtWYGAZkM7PW/97JgeX22RKU1i0GEdcxm
kQuFec7O7x4+YvBKPbz7T2dW//pfh/l5DHT38L2mD1LY8Jso+GIJg9ob6zVN
9lNQMVPK+K6RQXXYvR2luyic0yi75NPEoKTHLM6S5W+SQK/GZgaJidENNfYU
3jx6r5f+jsGqRTIeH+1YvVr2c7OPDPqPCEsZGwqDvdvrzvcxCFvvt9h8B4WD
/5vO6+tnMDHfPIX+mQKVmpu86ysDzRUvVB1ZfuigfkBrkIGS5dXlR6woOJd8
6Xo5ymCfzttDUXwKouu3X6+RMLDtL5DMY5kXaJuTOM6+38K7dtOSgpr27wGu
Uww4D3Rasy0oRMh4O1RPM/DlJ4T/xLL4w7INBlI2rys31r4wZ/0LGtRvzjDo
3Wf6zpxlUcLFKYZh842OuSwyo/AP6Jbl7w==
       "]]}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesOrigin->{1., 0.22},
    PlotRange->{{1, 2}, {0.20516354336274656`, 0.3441914555377831}},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]}], ",", 
   GraphicsBox[{{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVkXk41Ykexo9j96gRTiuSLS32KGr6ftHFPZyfg0ROWUOlIZfJkhbEbZHU
MCNjqWFsRY+MKFuUnTCyXrJc4qA6hMPx43fdP97n/eP9PJ9/3j2eAfbedBqN
5r+R//ehy+GiNBoP5KQGFAxSOZglxE8zFeJB+0jybHcyB+V/CTKKpvNA4CXa
EZbEwe8ll3zFRHlgg/z29/EcfLnq2iQtxYNrdyuyfSM5qPtv8/s75HngIpx9
YsSHgwfSpRkGmjx4FsxdeqzPQZXWdDUfNg9a9oeWMdpcsEXqWsyDHB40dv+o
vLx2Gld+GDeZX+bBm7Pdp45Yn0a5ifjjFVZzUMUPO8/Kdcap1O/R/8yYA8uS
zid0EWc02zWqKMObg/pmCf7Rn53QKeL2ymPLeYjZrXL58/gpPF0QpHovbR5o
DOP5cvdTOJI1+bTkyzyoLh501fviiCo3GJ6ZJ77D/sNR9ikhjsjd3XqlOek7
1FQeuBgo44ipCfX9zhMbu5vEc1rRSZQaD7+ef3QB9J2bD9jansS1tdIQw7gF
iODkjx9ZccBngsKX0f9dgLDiC8HUEwe0aOAeNTZeBNHLIYSarQN6uxTs0Lyz
CJv1adffiDkgduw3HhhehD6lqBuaFfaYIa1XUKe7BNoS0nqi4fb45sCcZ/Dt
Jbiyz/PloKE91uxc9Ln7aQnO5w0bwZIdsjoiq/u1+bDlfaRedqUdJp5vPD0b
w4cAt/BkRrQdujf8ZnWklw9zsj0eQ4Qdbl/Kj5nRWIa/HDLluhXt8J54qIjn
tWXYOxZuzp1mY/RwW++WD8ug9GrV17uSjYdThmZvqa+Ao4kPoRTPxl41Pbbb
1RXIsROTzfVgI/nzJomglhWoe/UfXpcxGwfzMoWYKgLwIBtW7GXYaJpVa+sS
JIBIKwe2Zo8tPvJXn+2sFYClR/li0wNbTN9l1iy9YxVyol86goUt6jyYJG9e
WIV8uaBJFRFbvDphEVj2dhU0BpRHNlUTaEPXMdknS0KloEpo4CaBUt9c7IQ8
SaimGcbM/INAq9iqKo4XCbcO++/jnSAwVlHl4KtzJPT6Cs8vmBNIt+GK+fmS
0Ceuyls3JXAlN6Ti4yUSNNfdM+SPEzjlmbg3N4SE8oCD7yyMCNQQ8BPpYSRY
MB/msQwJPPeQQz8bTkLsmb7ik4cIHKlWGdpyjYRa2jcDL30CexWKHl2NImEw
2280UpvA+p62NeI+Cd3K8jN1GgSK+Ov55cWTYL99u3S7OoFmokl9wgkkNP4W
y+5TI7DK4Exx2SMSdt2NMZ9RIZBsrlaWSyShRkd8fmEPgSaeqvE/JZHAr+1+
t65MYEnC9HmVZBK6tI51yu4mcH4v0RPxmAR/qzppRSUCdauLzHtTSPDruea3
V5FA/1OMIr1UEv7e5ymbt4vA519CleLSSCjyVJHcspPA6VuD9z6nk5DasGAc
tp1ATQVcwSckdGxtyxrdSmAWU/zj4h8kJFx31SyWI3Bs9KIpO4uEMTUKFWQJ
VA77UJj/JwlincG/xMgQmJqTdMctlwTLiMIJ500EJoqoQVMBCXF/ih2nixMY
XYX5qWUkxGcWFbsJWDgQukQOv97wFW62mlxmob7Bc1vV8o3/RNQ2B/BZOJaz
bTGvkoSQdLbOjQUWmj38CqW1JEhfefr+6VcW0s+ldne2kiBzMU+fN8bCKMll
mvgoCX+4yfUXtbAw8uQLp0DJNVgvu/RjfRoLTdp6LSQ91qDp9krp+2MsHGac
uCVRugZecSmTVSM2KKluvNVUfB3U49lHM+/b4NetU9xjruvwbuKh01kjG3Ru
3y37rxfr8Kiui+c/aY0vnH6/vZlah5S/0y47plpjTW0H+jtSkPGTa6I1yxqd
F+JZ4tkUSPt5DZWLWmP9BzPdgBwKtKw11m+KWOOhvCXZ3lwKumzB0kLYGn9w
de3LfkbBlJajfSdtg2/Q8rIoooATbmLNXWWi4e+toTEVFITGmtcozzNR1kwq
S7iLAj43+E7BJybeVKiK9ftIwZwzkR0yxMSvS4EXuropKKiLmzYdZGLTs37t
zD4KouZ2cnv6N3hG3muzTxR0XCiopHcz8duUZXskl4LKJ4erPFqYeObdahF3
moJCrRmWdjMTm9NeJNrNUmA+f19ktZGJ2fbbXPZ8o0DAi/6cWM9E14rP428X
KDDq8I5ormFi668pDZpLFBzf0WCW/JaJJoFEfgKfgv0+Qzo+1UxkaLwKcBdQ
oCEvfZ1eycQo2kX7xlUKVtcYwx3lTOQNKBrqrlHAWCv1yXiz4S/p3Ja8ToH3
wLS8/+sN/4MYAUVREOeewz1WxsT/AfRdXNo=
       "]]}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesOrigin->{1., 60.},
    PlotRange->{{1, 2}, {53.43935890839302, 110.44061967175394`}},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]}], ",", 
   GraphicsBox[{{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIwXVDFysDwwX57gMFhFVNDB+15PKLGGgi+0pl5KmkB
CP5prtrW/uUI/k/+J1affiD4wk/77PZ4fITzX8z53Ow5H8F3kn4oK/ABwQ+v
6fg50/0TnB+5tli5ey6C/2DJ84Vb3yL4SvWiSYtdPsP5L+XPlJ2aiuDPmXDs
ZsRTBJ/rSVXdKusvcP7fv9vLTXsQ/NW/1m1qfozgux1/aW1p+RXOT41aK6nR
ieA7XNCyvHUfwZ/PY7j2qME3OH+X9sekkg4E/6DU17Suewi+74XG/Tf1vsP5
UzJORL5pRfATjk/3sLiO4Et8W9X6Wu0HnN/NXsGSVIvgN98/e13wHIJvPuvu
mxbVn3D+dRXDgPhqBP9PKS9H8WkE/87KxYxeSr/gfMclh/yjihH8SXmqby4e
QvDnSTud4pH8Defr9z//05CJ4Fc/dSvccQDB92HSt9IU+oOIj/dRgYxJCH7z
PodVc3Yg+I0h68MLOf/C+VZnr7txJiL490VdWji2I/icqpZijuz/4Px3Yi9e
2sQh+BHn5YWK1iP468Nnd/D9R/APHrrgkBf6H6H+S58v+zIEX8iJawnzZQT/
TH/rr///EXwAQQJoog==
       "]]}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesOrigin->{1., 0},
    PlotRange->{{1, 2}, {0., 34.415184401122524`}},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]}], ",", 
   GraphicsBox[{{}, {}, 
     {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJxF0Q0w1GkcB/C1XjZGb4RTubJRSsciObrpt1ZtMvLS1VV0Ki+hRM6lvV7c
ysvRRnK7e8VSx4ZVctxs6kii8/462hbnEiGLUN5aa+09O3OzzzPzn2c+8/0+
z/Ob+Zv6RxwMIhIIhBD0Kfcd5y9pEghTQPh/8dXms5zVsNf8GrUzjog9LQwL
1tLELpX5NejqYFN+cUkxXoNtma1rYGeBTW7ONjvthd2kczXhZj62dOWg06fP
2PpDqbsrXD+qPMKbjtt/F5u2rt9k1RT2kStJ0jv7Pql8rChqEysL+y3//e/C
D9jknw38c/dMqyzZ0BzdyMHmpdV2Hx3C1hm8FFO4a0Zlubzsov0N7AcLj0rj
3mHT6yS7HB1nVQ7yKTK2SMamtm9z7OnDvqtrU/Q3ZU7lvyw/+v+YhP1i7ezp
62+wD7THPu+2mleZHVJ/bDwB+2Tdb65fi7G/mCtMGNv8WWUWiaHhfxU7rq9F
vLoV2yHj3/F4c6nKYjMbrxOXsRcvLF8W1YTdK8hVcyMvqOzMr/b0icJODzcf
76jGzl5Ha9Q1lqlsffP9IjMU+/IQPfJJFbY70dppq94i/h+TPt5q/tiuiZWV
vgHYiSbk7Y8DsYnuEq2zwdjSgosVr8KwR/zZWwouYte+bpF7pGBrhNucFaRi
0zQ5Xepp2JV2x/98ko4tTBsNId/G/rTF4/WVO9iU5yUu4gzs8O8MSmx4Sr/0
chUpdj/8wPjyRhYyc92MfthqGI3vZQ1nK/PG87cG1oLFeqqUeg/53gF60HYy
8N1Ir2ZzkKtSRQ45ljDQf8bZi4/8R854tBUFNv7U+qjwvtL8riqWLfDyOckn
CpAplyJN6Q7A1jCDhiLkZTH/6HxPhbhKaiHvCfKq4etBbfuhhzG32PdU6RTz
QIkb2No99NxUrnzP91tfdXcYyDeaFTxDngoKtXPwANqtCSirRtaYpu319AZi
IE/U0aw8v813VHgYrml/JpD6kQPp3ueYfhB7qPhIpLYcCDTDeCvNEHBqEdO1
TyE3VbjVRF+APoM98cvKkE2kRLNHMaBt7mjoTFoCQvm5LjIvDiYMRyTf+C0B
s4mX6WufBEfbNuj9UIzy3AHbecYNKD6SmbRCgaw2pmXslQYvqtup4YcVwLwq
ayKlpMPRmdQDpDwFEAoob/TusaG2lUaJyEf53nlXDwEbdgjm9MQFKPeNiUgu
ZcNKP7+uvAcKoPaKJ5deon7dVwH0EtSvkj8blrDBPrOZkVCBcrJzusCOA3o0
Hb56pwKqzhO3L9ZygLm+MvHsK+SsPH3rdg5MzEWGdorQ+Ts+Zae6OdDwoNsq
twvl/TLb2jHUNxA8pb1B78+GyFiruDA5sq8tVoLyacNOHR8uHK+RlUhGkSvf
XnEM4EJjVjHbexx5sH8gOIwLeQeNfEwn0Tym7Hc1MVzwqxgerJpBZsjLGLlc
aOZm1FnMof7OOpf7D7ngFOlRmDaP5lnRy+oQcsFg8+OIkwsoH57y2lrPhWuE
MwfrZSgXzbYc6uDCVI+JPUWO5iv3JDF70P3CDqPbS6i/XE1e+A7dfzNhQaFA
3qNbLBrnwn8432bF
       "]]}, 
     {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJxN0X0s1AEYB/A7Jdyu1OVIMiNMWZxFdacVlx21FFbDrV26RqlG1/VipOhc
KeWs9OZ1zY2c6cYmaia0nJfzNrXDilrE1eXd4c65amu/7z3bs2ef7bvvP48z
PzEi1oxEIoX+3X/X92KyOYk0tZ/0f6TkhcJAMmzzSLhLZAbP1lw4s8Ycrtbz
2qgUmHHnwAN7G9iziErf6QG7KItc48LgDkqqWFIGL1mPsGYW4Y2j2fvqQ6YJ
jxfMig4Ww2yHb47rp+DI65lLz4NnCEdXCrdmFcJfpWMvan7DLjfp/JKgWcJq
J+XV9sdwQU7LQNQoTBlJviHznyNsMNRe87sPV+heVYu+wxyF2p/JnCccy620
97gLB/RsZw4Ow8VUn8oPDC3ht57T/MuZcNPm+bh7Q3BoT/q7Aa8FwrlnW6M1
YjhG8TRkjwrepJWJf7kvEs6ySFrNT4VFw52qDV3w7rwvmgy3JcIqV5+wkynw
8pW1lsIO+HN5CfmQi45woLT5KFcIP0xw0/Q2w0UO7HaqvZ6wt2RsOS0eThnl
COoa4cNm3qxttGX8Y5IbTubDooYAWUEdnH5MHimwMhBmdao4VqfgYXpQhmUt
bOXGtA20WCE8YTuu3suDo7qdaJfksDwyP3OdEW5q7glIOG5Efi471KIUbuli
MxLLYN9yLU31Erbm8fpLK0zyih2nOVWwX74ySVwP09gU6ao+OG1Lw+3zH+EJ
rSC+7xPcVjHgVdJvkqeXv2EPwZPjwd3pavjEe32V+ifcXijPDdfApRF2XOdJ
mFf/Y6RxDlY+yVN4aGGW4IgsZwGmu79OjNHBt0jnIlr18NSgox/DYNJf02v3
bMWkXyLWGY3wH3v1SR4=
       "]]}, 
     {RGBColor[0, 0, 1], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxN0X0s1AEYB/A7Jdyu1OVIMiNMWZxFdacVlx21FFbDrV26RqlG1/VipOhc
KeWs9OZ1zY2c6cYmaia0nJfzNrXDilrE1eXd4c65amu/7z3bs2ef7bvvP48z
PzEi1oxEIoX+3X/X92KyOYk0tZ/0f6TkhcJAMmzzSLhLZAbP1lw4s8Ycrtbz
2qgUmHHnwAN7G9iziErf6QG7KItc48LgDkqqWFIGL1mPsGYW4Y2j2fvqQ6YJ
jxfMig4Ww2yHb47rp+DI65lLz4NnCEdXCrdmFcJfpWMvan7DLjfp/JKgWcJq
J+XV9sdwQU7LQNQoTBlJviHznyNsMNRe87sPV+heVYu+wxyF2p/JnCccy620
97gLB/RsZw4Ow8VUn8oPDC3ht57T/MuZcNPm+bh7Q3BoT/q7Aa8FwrlnW6M1
YjhG8TRkjwrepJWJf7kvEs6ySFrNT4VFw52qDV3w7rwvmgy3JcIqV5+wkynw
8pW1lsIO+HN5CfmQi45woLT5KFcIP0xw0/Q2w0UO7HaqvZ6wt2RsOS0eThnl
COoa4cNm3qxttGX8Y5IbTubDooYAWUEdnH5MHimwMhBmdao4VqfgYXpQhmUt
bOXGtA20WCE8YTuu3suDo7qdaJfksDwyP3OdEW5q7glIOG5Efi471KIUbuli
MxLLYN9yLU31Erbm8fpLK0zyih2nOVWwX74ySVwP09gU6ao+OG1Lw+3zH+EJ
rSC+7xPcVjHgVdJvkqeXv2EPwZPjwd3pavjEe32V+ifcXijPDdfApRF2XOdJ
mFf/Y6RxDlY+yVN4aGGW4IgsZwGmu79OjNHBt0jnIlr18NSgox/DYNJf02v3
bMWkXyLWGY3wH3v1SR4=
       "]]}, 
     {RGBColor[1, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIwXVDFysDwwX7Zti2lG2Y8steexyNqrIHgK52Zp5IW
gOCf5qpt7V+O4P/kf2L16QeCL/y0z26Px0c4/8Wcz82e8xF8J+mHsgIfEPzw
mo6fM90/wfmRa4uVu+ci+A+WPF+49S2Cr1QvmrTY5TOc/1L+TNmpqQj+nAnH
bkY8RfC5nlTVrbL+Auf//bu93LQHwV/9a92m5scIvtvxl9aWll/h/NSotZIa
nQi+wwUty1v3Efz5PIZrjxp8g/N3aX9MKulA8A9KfU3ruofg+15o3H9T7zuc
PyXjROSbVgQ/4fh0D4vrCL7Et1Wtr9V+wPnd7BUsSbUIfvP9s9cFzyH45rPu
vmlR/QnnX1cxDIivRvD/lPJyFJ9G8O+sXMzopfQLzndccsg/qhjBn5Sn+ubi
IQR/nrTTKR7J33C+fv/zPw2ZCH71U7fCHQcQfB8mfStNoT+I+HgfFciYhOA3
73NYNWcHgt8Ysj68kPMvnG919robZyKCf1/UpYVjO4LPqWop5sj+D85/J/bi
pU0cgh9xXl6oaD2Cvz58dgfffwT/4KELDnmh/xHqv/T5si9D8IWcuJYwX0bw
z/S3/vr/H8EHAGE12So=
       "]]}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesOrigin->{1., 0},
    ImageSize->{192., Automatic},
    PlotRange->{{1, 2}, {0., 0.5811388300841898}},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]}]}], "}"}]], "Output",
 CellChangeTimes->{3.4832967099703717`*^9, 3.4832969337117434`*^9, 
  3.483297052416613*^9, 3.4832973536997385`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Simulations", "Section",
 CellChangeTimes->{{3.483485594543785*^9, 3.4834855958479156`*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5119054530830603`*^9, 3.51190545611206*^9}}],

Cell["\<\
Figure A.1 (ki=kc=.5, so group spending has high marginal impact on \
reelection prospects)\
\>", "Text",
 CellChangeTimes->{{3.51190546859906*^9, 3.51190547184706*^9}, {
  3.5119135089832196`*^9, 3.5119135286292195`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", "=", "5"}], ",", 
     RowBox[{"\[Mu]c", "=", ".5"}], ",", " ", 
     RowBox[{"ki", "=", ".5"}], ",", 
     RowBox[{"kc", "=", ".5"}], ",", 
     RowBox[{"tg", "=", "10"}], ",", 
     RowBox[{"m", "=", "0"}]}], "}"}], ",", 
   RowBox[{"GraphicsGrid", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"c", "/.", 
            RowBox[{"FindRoot", "[", "  ", 
             RowBox[{
              RowBox[{"cut", "\[Equal]", "c"}], ",", 
              RowBox[{"{", 
               RowBox[{"c", ",", 
                RowBox[{"-", "1"}]}], " ", "}"}]}], "  ", "]"}]}], "  ", ",", 
           RowBox[{"{", 
            RowBox[{"v", ",", ".25", ",", "10"}], "}"}], ",", " ", 
           RowBox[{"Axes", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"False", ",", "False"}], "}"}]}], ",", " ", 
           RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", " ", 
           RowBox[{"Frame", "\[Rule]", 
            RowBox[{"{", " ", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"True", ",", "None"}], "  ", "}"}], ",", 
              RowBox[{"{", " ", 
               RowBox[{"True", ",", "None"}], " ", "}"}]}], " ", "}"}]}], ",",
            " ", 
           RowBox[{"FrameLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
             "\"\<variance \[Nu]\>\"", ",", " ", 
              "\"\<equlibrium cutpoint \!\(\*
StyleBox[SuperscriptBox[\"t\", \"*\"],
FontSlant->\"Italic\"]\)\>\""}], "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"PlotLabel", "\[Rule]", "\"\<(i)\>\""}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], "       ", 
         ",", " ", 
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"CDF", "[", 
             RowBox[{
              RowBox[{"NormalDistribution", "[", 
               RowBox[{"m", ",", "v"}], "]"}], ",", "0"}], "]"}], "-", " ", 
            RowBox[{"CDF", "[", 
             RowBox[{
              RowBox[{"NormalDistribution", "[", 
               RowBox[{"m", ",", "v"}], "]"}], ",", 
              RowBox[{"c", "/.", " ", 
               RowBox[{"FindRoot", "[", "  ", 
                RowBox[{
                 RowBox[{"cut", "\[Equal]", "c"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"c", ",", 
                   RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}]}], "]"}]}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"v", ",", ".25", ",", "10"}], "}"}], ",", 
           RowBox[{"Axes", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"False", ",", "False"}], "}"}]}], ",", 
           RowBox[{"Frame", "\[Rule]", 
            RowBox[{"{", " ", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"True", ",", "None"}], "  ", "}"}], ",", 
              RowBox[{"{", " ", 
               RowBox[{"True", ",", "None"}], " ", "}"}]}], " ", "}"}]}], ",",
            " ", 
           RowBox[{"FrameLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
             "\"\<variance \[Nu]\>\"", ",", " ", 
              "\"\<ex ante group influence \!\(\*SuperscriptBox[\(\[Chi]\), \
\(*\)]\)\>\""}], "}"}]}], ",", 
           RowBox[{"PlotLabel", "\[Rule]", "\"\<(ii)\>\""}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}]}], " ", "}"}], 
       ",", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"tg", "/", 
            RowBox[{"(", 
             RowBox[{"exp", "[", " ", 
              RowBox[{"c", "/.", " ", 
               RowBox[{"FindRoot", "[", "  ", 
                RowBox[{
                 RowBox[{"cut", "\[Equal]", "c"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"c", ",", 
                   RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}], "]"}], 
             ")"}]}], " ", ",", 
           RowBox[{"{", 
            RowBox[{"v", ",", ".25", ",", "10"}], "}"}], ",", 
           RowBox[{"Axes", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"False", ",", "False"}], "}"}]}], ",", 
           RowBox[{"Frame", "\[Rule]", 
            RowBox[{"{", " ", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"True", ",", "None"}], "  ", "}"}], ",", 
              RowBox[{"{", " ", 
               RowBox[{"True", ",", "None"}], " ", "}"}]}], " ", "}"}]}], ",",
            " ", 
           RowBox[{"FrameLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
             "\"\<variance \[Nu]\>\"", ",", " ", 
              "\"\<ratio of group benefit to group spending \
\!\(\*SuperscriptBox[\(\[Psi]\), \(*\)]\)\>\""}], "}"}]}], ",", 
           RowBox[{"PlotLabel", "\[Rule]", "\"\<(iii)\>\""}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], ",", " ", 
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"r", "[", 
               RowBox[{
                RowBox[{"dixe", "[", "  ", 
                 RowBox[{"c", "/.", " ", 
                  RowBox[{"FindRoot", "[", "  ", 
                   RowBox[{
                    RowBox[{"cut", "\[Equal]", "c"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"c", ",", 
                    RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}], "]"}], ",", 
                RowBox[{"dcxe", "[", " ", 
                 RowBox[{"c", "/.", " ", 
                  RowBox[{"FindRoot", "[", "  ", 
                   RowBox[{
                    RowBox[{"cut", "\[Equal]", "c"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"c", ",", 
                    RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}], "]"}]}], 
               "]"}], "-", 
              RowBox[{"r", "[", 
               RowBox[{"0", ",", "0"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"r", "[", 
               RowBox[{"diye", ",", "dcye"}], "]"}], "-", 
              RowBox[{"r", "[", 
               RowBox[{"0", ",", "0"}], "]"}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"v", ",", ".25", ",", "10"}], " ", "}"}], " ", ",", 
           RowBox[{"Axes", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"False", ",", "False"}], "}"}]}], ",", " ", 
           RowBox[{"Frame", "\[Rule]", 
            RowBox[{"{", " ", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"True", ",", "None"}], "  ", "}"}], ",", 
              RowBox[{"{", " ", 
               RowBox[{"True", ",", "None"}], " ", "}"}]}], " ", "}"}]}], ",",
            " ", 
           RowBox[{"FrameLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
             "\"\<variance \[Nu]\>\"", ",", "\"\<net electoral impact \!\(\*
StyleBox[SuperscriptBox[\"n\", 
RowBox[{\"x\", \"*\", \" \"}]],
FontSlant->\"Italic\",
FontColor->RGBColor[0, 0, 1]]\) and  \!\(\*
StyleBox[SuperscriptBox[\"n\", 
RowBox[{\"y\", \"*\"}]],
FontSlant->\"Italic\",
FontColor->RGBColor[1, 0, 0]]\)\>\""}], "}"}]}], ",", 
           RowBox[{"PlotLabel", "\[Rule]", "\"\<(iv)\>\""}], " ", ",", 
           RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}]}], "        ", 
        "}"}]}], "}"}], ",", 
     RowBox[{"Spacings", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"10", ",", "75"}], "}"}]}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4854546119743185`*^9, 3.4854546267321076`*^9}, {
   3.485454785105338*^9, 3.4854549817770596`*^9}, 3.485455044755067*^9, 
   3.485455077390685*^9, {3.485455195702602*^9, 3.485455262845863*^9}, {
   3.4854553418140755`*^9, 3.4854553466813374`*^9}, {3.485456662371005*^9, 
   3.485456678517212*^9}, {3.4854567113712335`*^9, 3.485456712229244*^9}, {
   3.485456880430601*^9, 3.4854569104921865`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{InsetBox[
      GraphicsBox[{{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxFzms0lAkcBvBx1yJM7o3bvHVILkPFpmX+RTarbDukTVSiJCpCHSqcSZez
OoooukjsoJLtHkf5ixJRbptalyxJuuAlJmbe97WzX8aH5zzn9+U5j+X2fYId
iiwWK0iW/3vGsPg1i9XCX/UkIi+BR+J5o69L68075HYwdsw6ze+We79A9cbe
2gG5o1y2Ho4Vf5Y7dvlYyOJjpNyty0/UabZ+kxsbBMTlAbHcvo/GwdRVIneN
koVhroZUbmefdcN6PbOed/ltf6wuJTc5Evq2bfWs351f5Ke4bdYvYfSlY+Ks
PfUFad4nZv3o0701IVmzXlJlqJpwleJf0dYqyHUi8XpmYu2ZMoqvqrM6dMSZ
RMvwnpSSSopvLy7duXIFiTkrwL26nuJTyituZvJJPDGgUjHaL9uLv6LGW0Ni
mHNGma8hzff85K4ZsIlE087iXM0Umm99Ndp6/SES21K/sD1O0fzq/rR1/GQS
Tzo4nErIofk1iQWU7VESx1MfJA3eovnbtlRJldJIrHd4FlrdR/PbJcmZ+RdI
jDvWbxfnwfDZ5sTzrAoSm3imNV2qM3z2sGHwXjGJjz284197sSDVTWm9VtQY
Pm60Tro0ogD3/az0WjaN47H5hNKKRCUoNQtjHV3wDYdZJQt1GWUoeU3Vruz6
hiLD89a9BaoQYesfdC1jAheK84tTF6sDsbXOMdt+EsUq+mrc13PAihcx9Lxx
EsNvzFP+fkADwrvDEvYGijHfyO5IIaUJKzXVJkw7xLjo4a2OnwvngsDFOkjP
7zs+Trfq6DPQAfq6muATfsf0zsW3L37VgaLVcVcX2E+hQ8xkYEyVLrjfFXmt
OzuF9yKbapyEbGCWquuOfJnCvqS3JtEB86DE/6Crr9c0jk+O8XI5evDH84xz
T7Onsf1hi/67d3pwOz/8zL7eaQzKHPicd1sfPgZ1C2kbCTa0qCT5HDAAZVL5
wcM9Euy1ClKI8zGEiLkX/v3pjgSfNRz0K+cYgck1kpgYk2B6c37oUK8RsKsa
GmNspMgaYUKz7hqDTmN3VGWYFAOid3NtE0ygO/m+c1qOFA+7Xfyr13U+LOo7
GaPTIMVfCAU7bS0ObGDaSgOkUqSi4nbZtHIg0SxbYZE1hQHNnKwnIlMwu2xa
fSWAwqzstiOeUWbgXcRtJlIoLCha5/ze3hx4okgzp2IKbYeSRhmWBXhkLv3Q
3kzhdFkPVxhqAbGDLY4/TlBoorjR1+OVBYhVbgYYmNBYKHEKYbtYwnDycZNn
bjSaifT93uRYgmIFT60pmMbhLrZbpyIXvnjtWuWaTGPZUwPV9h1cSPxNZZP3
ZRrfCI48+KeOC/EC3F1ZQaP/HmaLGY+AklvpPOEbGmuXHx/8PZOADxteFPmN
0zgV2SrUziKgx+xAYIPM9nkc87psAjpHEyj3bzReULy7cUkuAQ0RuRo2EzTu
b+yt18onwL1SFDAzSSM3ePmNmpsEdEm2FhZN0yhM+brPtoEARiPFaYjFYPkd
F833LwgQaZWXb1ZgcGRAWJLbRMDxj7V2zTIHehv3qbYQECnYOXBfkUEntpeg
r4MAV01IFSoz2Fd4Zem5AQLqS89mGKkzaNDxuWXtIAHZm1+ppsm8Vt15j9IQ
ATUc40ha5vKoJlH0FwLiq4ZZ/XMYPLNs2sBnnIDES9KQ6xoM1oV73lWYIIBW
NF/P0WSQyj39a/kkAd68aLt0mXcxC08unCZg8M/r92O0GMzjxSzolsj+rb24
7b3Mf29/VJ1JEcA+VC/xn8vgD9lqwd4MAT7vlqXWyQzPBdMzMwTEcD9SLtoM
/gdHjPM+
          "]]}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{False, False},
       AxesOrigin->{2., -1.8},
       Frame->{{True, None}, {True, None}},
       FrameLabel->{
         FormBox["\"variance \[Nu]\"", TraditionalForm], 
         FormBox[
         "\"equlibrium cutpoint \
\\!\\(\\*\\nStyleBox[SuperscriptBox[\\\"t\\\", \
\\\"*\\\"],\\nFontSlant->\\\"Italic\\\"]\\)\"", TraditionalForm]},
       ImageSize->Medium,
       PlotLabel->FormBox["\"(i)\"", TraditionalForm],
       PlotRange->{{0.25, 10}, {-1.8787155035990077`, -1.0118347347270888`}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {185, -148.74611797498108`}, 
      ImageScaled[{0.5, 0.5}], {360, 222.49223594996212`}], InsetBox[
      GraphicsBox[{{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV03k81Nv/B3CE6AqJZEkyyHajUUjq9SkqrlZJvi0oiopQbpbkSrkkl7gU
opSKInFHtsguDBljG+uHskWWrIPBb35/nMd5PB/n/X6fcx7nfbZcdLW4xMfD
w1PFHf8/r0gnN/PwMHBzafHsvysk+IkX4is6DChfGezx4VrI6an50gUG0iNa
ls9zvfZR9N+LkQzUTT/fYsS1RG54yXwZAwbCQ28luZbuecCZm2YgztdodGCZ
hLzQff1ZlQZIlB7U+49rRR2/G9NWDdhiJVXxJ9cq1l7vJ4MaIPbVp16Haw3/
G0MTuQ3ICrh799sSiW0pzpTxHw1IuDq59IBrXcZlm1FZJu4Gjtqocm3Atosd
MWciYX1kdjaHxB7Fs00/fJno/5glZsj1ftNTYkPvmQjyf3H9wyKJg27H/hjo
ZiJ8ebBBimvzGLPAPrFGXKBo6zovkDhebFz8jWiEg5ZYcOY8CcuhPYs97o3Y
f3e8tI9N4n/iBnrky0Z40gYa+bm2MaC6dzU2IrUp7q34HAl7O620Dv4mBN1S
pK6eJeEUrDrYtrMJ+eUtZwenSbizZM+3PGlCsDTDwm6SxC0eqZimqiboyxQJ
zE2Q8FETa2TON6H0VYXqzXESfx0XFm3QaIbX4Y7MxlES971WmdWfbYb9vsFk
6Z8kHiQu3asLbcaTF45ie4dJhFXNfaYXNmPvDtGZA0Mknmz8uaNqcwui22fD
Z7+TiCcGXCuPt8Dh+d8BCb0kEp163pXfbcG54dLrSiSJd7lNiiXfW6CqlrKm
rI3Eh56vZ4skW0HbtdOoq4VEllD148IDrdjd+uUas5FEoXWhSH5yK/gugWpe
R6LUP+dQLqsVAx8+xtRVk6hMyQzIFmbhAxkZr1ZJgsF+zf7vGgv7BxMeXv5M
4ntMWF+qdhscwfthNo3EUHHw5nd2bfC+KG1HTSHxcyjgTEpEG1Jq+puNk0jM
GngyXk214Wdent1gDAnhNtuChJx22LVP6W0LICHKe2bu6VA7/Opf/Sbly+1P
dUtqnEwHvAMP7mj4k9uP3qYpj293QNGXNlztREJbZntUODqh9w/bteQw9z2D
DOhpHp2wnVN88dGEROgM+GredmJKhBrobURiuOGoG79kF5w0YvluaJJ4E+J8
2HuoC+cOP0inrubW5yTz20eQKHEMOuCS3Q3zqx92+3PvLVwfvxyb2g0fVvaN
BG7fSbb0eT9P7IZz+8WJEWoPwj+J3NMP6UZNtruNakIP7lqlsT6c7Uaga7jh
U/deWK97W+bA7kK86voW9dBebv9ukfYY6UJW12P33De9mBZbW+PY3YVv5s9S
mjt6QTP6H3WlrAuE2vsN4ge/QVxzbg1fWBc4PTWT92W/wzz6qvTUpi7csBBM
vV7WhwLp+rWL2zshmG3+2bCzD3ZNRW3dlE7EyUQ0CM704bLas8pPUp0o7ZFj
P1Ptx7YNsxEX5zuwznX7gfoH/ZDus/O8XtyBjIfnSO3jA/BaE2f89UgHxsv/
W/+rcxC915saGY7tcNa39b05O4y338J9PF+zcMbkjnCZ6AiI0ewXwjEsmJ54
+lhi6wgq3/374mUIC8rXWjMyT4/gVwffXz9cWeh4dqx/PHcExxeVWmsNWfhD
kDjqfPsnPAuNDs03tEK9WVHxEs8YlE6wXU0FW3Fz168LmoETkD8WHOgY3AyP
iHuDZyInsHf6fcY632bc+iHlEvJ8At2KRbKVrtx/Fmvo9SNvAvvaG5KOnG6G
3/y9sOQxbn7rhUOtqs0IydvwiWL9C9STykrML014uctIUl5zEuWbMnRN1zWh
YVdQpUjDFC4HXbMaKmZC3Glh9dmuKeSO5ku/zmHi+GMXs7c/prBDScL/SjoT
jMmTtQf4ppHcYaMlHM/E11RFpp/uNNLjfYkkTyZqN+V3TURP45FNRY6RDhNV
vKPTTWdmICSikdX6pgFF1RaUhL5ZvG37c9+hFAZCzKopU79mYVSUOiiTyIBl
NZTNVmYRc88lfeoJA0NVWiozMnMwcdD6qyCIAfEqwa1Hjs3h8u/iZ146MnCx
Ml9jKW8OlYYxLrlqDAiWKVHPh7NByEXsy7atB2N/LJUWz0bTgLXm6hP1iCsV
0xV+x4b11d3BDvvroV3K0f1YzkbVnMwlE5V6WJe07Fy7wEZfQg31ychXvCsK
2VXoMA8rc53gOz5fcbRgkthkuAAeeRuzqcQ6VDw6tbzj0ALE3YP45v6tg9Gl
3E+HLRewf8RWVyCoDpqifnq+1xeg89C2nnCpg5CdsFbHywV4Xabk6xrWoXSV
onTsb4vwgARjubkWu1gBTRkbF+EvU0y+qq5FRlp/RJXKIqLyq/MsC2vx/FSq
CBuLMLH4I6nhVS18k/X4TnssYge/nCY8aqFnfmRUsotbT1lgW49kLd5vznin
NbyIl7I1sgrCtVCelnAymeM6PF/n0hId6xNY326u4+CWqHOm6AAdE2P2LOYB
DjilWfN1OXQ4llVGD1twIC6rRrFMo6P7ifpJPjsOHp1+qP49kQ4r51BxWRcO
HJgPVt2OpqOOGK/b7sOBpWB7slwIHSZSFg/NgjjoC96ztsKPjoIfWaYXojiw
WvbX8LxJh+5naUHvFxzYuYQyna/R8S7Sp+xROgdDasoCpZfp2OLY5Z/yiQPT
Dql/Nl6kI2Y3sbe4igPrrJkrbufpCOoTyBv/xgF/K0NR2ZIOB72I9KPSS5AM
3Ob5dB8dm9qTY0X8l2CQ/pdTtTwdzPsjEsahXAucq7u3kY5gbe1Q75gliFwW
OQVJOibvZ/sNZCzBSTeMnvcbHVXaFfbFvUtgLMeZFyzUwCPw2+8exsvQWNx6
eI5Vg1qdTaUdgitgHxWd3v+4BoXGZn82H+QhFFNsdBUkuaar+cWP8RL3WWOz
KkLVCJSjrNrts4pgZGkneypUYZQnRWXdMj/R46ce9uzQF7yWfqJGvhQkOhND
mnVcKqEym5h8X1OIEO2Rl5JIr8CsgNRqpWZhQmgr785nI+VwTF3PP3frN6Jc
jk/gH4NyJG78/U4SR4TwZwrZHXhaBvWcjJZDSaJE05L2DY+FUhSGbW3p3SBO
fL3d82+jcynC2jUzn/4UJyxY0q97O0qg7T5zxv3zOmJCX1st5FQJsq7VllID
JAjlzOfq9O5i9PqxZN2s1hP3vRpX0xyKMTnzSydWXpIQd9nNz/+rCI05DKnu
bkkiLaLHgndrEc5F9g0/y5Qiylcf2nfV6jOqGQJ+5rc2EJbG0Wl8CYUgt57j
9TCXJthFM6RnVwEqqj1P5spvJM4VjCsc1ShAWH2i/RC5kfC4KxoYH/IJPGPL
9lE0GYLH31aFtz8fVm5XlbS8ZYkUSR+5DSfy4bvn6QfSUI5IdFWznqnIwx8U
3t/F1soT/gzvH9t25oHj7OGk0SBPsPQXY6NoubCql48qeb2J8Eg1/ULTykVU
NPOOibMCEap+8ecnWg5evjmi933bZsJNYZXSw3050BryG1/mUSTcdK7wW9dk
Yz69SynAXpEojxv1N7LNhizf6aPGXxWJjGvXx1zHPyJpgXpBQn8L4eQwS5YF
foTCa6mTrTFbiOCMWxVvVD9itENiTzufEuGlLxEpU5aF9PINgo2XlIiUuf7Q
M1ey0GpxJ7utUokoXrEyM5DMgqXLso2CDoVQ+yzc/D2fhrJdfw9YR1KI3FXH
knGVBva1hgCxKArBTq041eVEw7Zn8psroylE4onlnbcdaYjjo53WjaUQaVah
D3McaLhBJ6vWJlIIB+3FB1RbGpTO70otfc+N99Wib7ekIcD/p6tWNYVgPc+U
PrWXhtz/9EW+13DjFV4Os41oGOsLSImtpRCMEbGx+N00nDGT6RVkUAjlqN1/
9xvQQJU4aNHbQiE6HxcseOnS0Jv0fMfjPgrhtSZ/JEWNhg0tw4zDAxSCv51V
cmwrDYeF9FxWDVGIR5ktX2ZVuPs51752G+Ge19jU/gCFhkc75zeYT1KIIclf
LX2baKh0NKHxTlOIDOqsxj/yNHBiw4/lznDXqaHpO+VocFpWCVaZpxAe88Ym
QRtpeKbjrty5QCGqTllY6UjT0HSxoDiSQyHcimuetEnRsCZ69XmzZW5+SJLQ
PUkaiC8W8ysrFMJEuDFFaz0N/wevr0XP
          "]]}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{False, False},
       AxesOrigin->{2., 0.1},
       Frame->{{True, None}, {True, None}},
       FrameLabel->{
         FormBox["\"variance \[Nu]\"", TraditionalForm], 
         FormBox[
         "\"ex ante group influence \\!\\(\\*SuperscriptBox[\\(\[Chi]\\), \
\\(*\\)]\\)\"", TraditionalForm]},
       ImageSize->Medium,
       PlotLabel->FormBox["\"(ii)\"", TraditionalForm],
       PlotRange->{{0.25, 10}, {0.07451132890404205, 0.49997409804196663`}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {555, -148.74611797498108`}, 
      ImageScaled[{0.5, 0.5}], {360, 222.49223594996212`}]}, {InsetBox[
      GraphicsBox[{{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1Wk4lPsfBvAZjKWQPUTkyekIEXkmW7+bGTsZZrK0iEq0KHXUkUqOQjmK
CplWLXJQ0VGiQiRREi2UJVFJSmUs4Vj+/i++1319rvu6X3/nrdvuHSzGYDDO
Td//0zx4IoDf9pMsUs2RNzvij+jRg8eyv/8k3DvMA+pB/kgsUbtH+fWTxXSU
xoJEPyQp5oAf3E8y7CI35Yb74egm6+rYnf1km12GfKSvH1I0Ahs7k/qJGdfz
VJ++H9L35Hy+UNFPejsW/juv2heXLG1UtAxFhApdpVKh5Isrx+uFbktFZP/F
LzIhEz7I+hKos9dBRPb9rfHGsccH/wjjFrasFZHrN74lFpT54MZoPTJSReTN
kYoZqtt8cLckKExlUkROFMTo7GpagUbLhGrZxgESvvfF5eYaARRCx6RWtQ8Q
G+eLlP9dAXjpYS45XwZIztmJa2N5AjSI+HUOYoNk2QZF17PJAtTn6b6INh8k
Cp8Wszz9BKjTvtv+M22QFPZBUe8HH7Luxjrk0iAJD3moHdnFh3tUZuDRG4OE
WVt1suc1H0+b4j8YPB4kmRs3xc4u5eNJMv/LupFBYmU5Vy0riY8aZt/gq5VD
xKZtQBamfEibBtJUyBC5uqfVQlOfD+eAl3/u+GOIJByKCJihycfjuyVjcklD
xN7oXpGhBB/Vf8QznEqHiC175bctb71R9UlHtkRnmJS/+hJckOCN8lpv6tzH
YcJzHQh63++FRJdaaqB/mJQVuKqs6PGCoJbMd5kaJsqidKO2d17oqTHSH9L4
RbZ5CB/q1nlBoUZygYfnLyI5sVkvOtsL66rvLpwo+UWu9W7/OzDIC5IP9czW
JI8Qe/z25vR7HhrshWaFZ0eIc5ngX9ZbHk5XzjKXyR0hex+8LtvfyINJ5bj5
7aoRUvtwb29qJQ9+FU0WcmMjJErOj7U6i4fc8kTL0g2jhJlTv8YsjIfl90XQ
thojBQVbDK1ZPDxKWTG5xGmM6PiOSwROesImuPieu2CMrDpz5a/VIk8YykfT
+7aNEY9N9rZHWzwhHShj1HppjJyNb2XX5nmiUlx3tnDmf0SqOT7psJcnaDeP
PpX2/0iGm1qAfs5yaLdkC2VjJsiFU8PLLOd44MWhr0qcpAkytz17ia68Bw6b
mCTtyZggPNaBxbOZHhAdKoruLpggjnbNdUs+u6PG5NH6B50T5P2vx9sMb7kj
Iq7LOIIzSUYNFAK+89xRZ6pd2So5RRRmWCTOTnNDbGugtZLyFNnw8aBM3RE3
sOOv3HLWmSIhCiahR6PdcKnVMPs2e7r/OiOMDnVDZLxVUnLoFEnuDrHTsXED
1ebrw3kyRZq0lRWtul1RynHZ9dqRgXbdvUpyHFe0V2w9HuHBwL7033rXLXXF
BEm5rixg4OQVf7VHxq6wtWn+5BXEwBuOq/oN9en9kmCf+r0MJHl7xij8cEGp
/l/sxwUMiMfN2sg6P22pktFiTSYy9uiHGUm4oD2uTdVvHhN516LWfh5zxoQ4
w+zXAiakjQ/7Xut3hi3DabOFBRNC+5/qgg5nlI68arnpycSFfq6Bxr1pf/l5
L/cQE/r5r4y2Rkz76e/RZ78zkRSSuKGxzwnjt2xGngwyEZ3sF2HV7QSb87yd
o2NMNFfGF+W+c8Ld8MiNPlJieGb7LCfzuROKVGuWK+iKIUs2le686YT8tSE6
h7zEELM4JfLan064OJD1YMstMShKNZ8ylHZC3BxK3DpKHLti+zFp5QhNk+ur
XGPEkVRgsl/OwhEF9uxb/vHiOGe3OX+eiSPaNrkFR54Qh6bU9nY/yhFmxX88
vp0rjqJ8jTtMWUd0CKr+Nm0VRw3vsvXSdw6wPBas8puNBE5zP0Ax3gF9jH/0
FSclkB63Yq2giwvn0sI1VyRY2Nla2CvbzsWlPeVp7Jks7HiR9ry2mQs/URMr
QJ2Fhy+epfCecVH1gdWda8aCVZrD2uPFXJypXn+VG8KChfRkcWsyFy5JOgsi
G1j4vKps7Q47LrJmn/q945IkJjad68rO50CHnCxj5kiCa3nV/GweB8KNyYL5
+ZJYOam48mQ2B0dvJ8RsuieJZx7BcxIvcLCLH/lm4KUkysS0dYTJHDgk+x+W
ZkkholFYYBXOwSdJrZ7FIVIY6U3qizTnQH84M/uQoTQ8h85cFVTYY5ilKqX3
WgYH7xkfUf9sh5A8ZYlfu2eiqivG7L6pHTLVjfdfHpeFzINXJlvOAQZ3Cpqc
LstD/WCATL0iUHpsQVOnmgK+NipLcZYRHGsxvHnmmwIye1+HzVq3DCY7hlbu
KFOEb498cN9FW9zaUldpFqsEldC6990MW3RGv9EM91EGy7r12PL1NhAN9ZsK
tVRg8Em+cqDdGi/vNKi+e6eClNFnXREbrbH6xMfe8zdVMWlurNr8wwq1Daxo
t91q+O6g7GSXaIWOBauZEW6zEfj+yt6e+VZ4VPsnv1hLHWXjRVfsay1x7Hnm
+p4OdUQesC+RiLIE4/vk+tRCDay5c0zTaKElfMI36xnt0cSJrKbjjz8uxT7b
M/kdVnMQFPWzRzNrKVwppvEsOS1wpd7mhW1YivGtEaELG7Vw7le9QYvhUvg8
10qtyNJGSVvmdjsRG6lpL/Zzt85FQpXxmuvlbFy66kF/WKSDl7kbFzWnsGHU
E/1jkqGLnw5R2u2BbIzeaNeLXa8Ls31hcQk0G5pivss59bpQUfcL1pzJxuUx
syAl9jwMHpRbVtFFY26WKr85Yx669c3mMstp9LUq2baI6eFh/dP7+qdp3KhS
k3wZrIciCd2ZIXtoNHvvL3pbrYceGa8ZFStpCMImA+aaUmCEvRuXsKbx0DK+
2+8EhYqGsK77c2mMbGmMnZVK4YTqvvV20150XkunOo3C8aDd44+0aZwWK/Q1
F1JwP6q8+7kWjZ1PO2rkMikstjRN+KBJQ2+NZV7ldQr+qf9pKsymERvzbbtR
LQW1/Ktvo2bRKP6XLfvhCTX9R5TdxKb9/WPsP8I6Cjey014ekaex0kWjU7KB
QmxbqYFQjoaZkqN3ZxOFbxd7vhTPpNF5+cKS9I8U6suHC8elaKg19Ta4d1Ow
KLh8Mm7a7tJ0mHgPBaWciSPy0y7eWpcV/pXCduULd3UlaaRYjKq5iSjwvn1c
6ChBozqEW8gcpPDa1Kn8uTiNcWGyZ/EQhfQoarP/tEMn9Q/rj1JwqDUVDxOj
cd50x/y2MQodBiv6h5k0Xq27/+DEOAUJp5ahmGnPSJNa4zJJYeurEoWZ08Zj
79GpKQq6h/vs0hg0/gfljFJ0
          "]]}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{False, False},
       AxesOrigin->{2., 40.},
       Frame->{{True, None}, {True, None}},
       FrameLabel->{
         FormBox["\"variance \\!\\(\\*\\\"\[Nu]\\\"\\)\"", TraditionalForm], 
         FormBox[
         "\"ratio of group benefit to group spending \\!\\(\\*SuperscriptBox[\
\\(\[Psi]\\), \\(*\\)]\\)\"", TraditionalForm]},
       ImageSize->Medium,
       PlotLabel->FormBox["\"(iii)\"", TraditionalForm],
       PlotRange->{{0.25, 10}, {22.00227748917689, 102.14368025314317`}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {185, -446.2383539249432}, 
      ImageScaled[{0.5, 0.5}], {360, 222.49223594996212`}], InsetBox[
      GraphicsBox[{{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxFzQkw1QkcB/C/I8c60stZyvP+2YqHh5ao9vebRREdQ8koG70cu0lE6UAy
LLrIUNSGklJyn+X6o6zqkSMS5SheJblCSM/+d2bnvd/Mb77zmfl956d94IiD
hzhBEN70/pcLanfbCaIZiP9HEm8qLXBElvG+bvfDXWRGWWzNbJ3IOs4nsiei
WoS2S7KNHFjcJvRV9eF1DVodQhtqGCXEwhuhjzpIZfnWDQjtY7Y/OGB6SOgA
83F3vcgxoVvMo+rlW74KXf3UgbwxMC309ooJXGExJ/STuN2CdVtE3uhRVm6/
S2Q9xVDTYF+RZdxk2d23RK6VYKoly30X2tRu2xfltyJna+XdZw+JvGqS4W31
TeSlNzrfBSyZF3pshNvZai2yV1194pCDyD1X1zqKu4nciKONRqdEtlJxOG8b
JXLFpyIb9wSRTarUpE7epJ2WaGLhqwr340/VxeXQ5gQNjssYgbbX27DMcto2
iuf0/TdC0gb8lWqgHcF3ZQ1ZQtTAooej72jfxv0x1jvgoOnlnO1qP4Ao0evp
H3GBFV13k+XDaGdqZjpmeENrxGeG5QXakkOePmN/QLSh4YWTSbQJ3+PfLQ7B
RERJKD+PtrVXQ0jTYWgwfMKl+mkfPDtzMcgfAiPf6QdaCoB4E5179vxx4HFW
1HZLLQChXdLNxzCotLQ91r6ZQCJcSVe2MwYqn68J/XtEDN1yGfeZ565A5HJS
YsMpCcTvuU4LmSnwhcjUWSKQRDcFz3WPp25BhtrVNb23pLCvTbdx9uId0JlO
uxuhJ4PMRrZBe+o9mF6kIs1ql0UOF6zrsh+AV9ZSyW/H5ZAoP6pY75sLaer6
Ienz8tjnYlZl+yEP1pbmdWxJV8S0neu3FqoXQOWl1R39qkrYsJX5yVW7EC51
6eVfH1bCuEGP1UbsIjD0n3Lxr1qCfU3+1JRWMRQd4tUahzPwhEunePZkMfSH
di7zc1qKZR0XjjzmlcDE1DgnWVMZ/Rbs+CrnSqGttFmlp0cZoyvlUmXMy2Bf
/MBQSr4KNrfvDOV/LoOnzYtC7Y6rInXn0nLPmIfQu3qfWKCdGtrIOvVm6T6C
J0+DHMs01ZFjwOKtpx7BpRdp3I+96hjWJG112qociBEBN6FQA2eci5VSeeXg
5Pcni31yGSZ5LynYa10BwZuu5/ZaLMcxjZoznJIK2EqK6S9W0MTmE57z3bqV
MO8T6K3boolhLI/grPhKcHqhmVCTsQLdRngxyoJKSEhsDbHyWYlUndu1Ptcq
uHVnm+l7Ay0ci5WVe11aBeyPoaMCgomdd1YdslOphtmct6xwLhNnxmV+6/au
hmXie7ZbNjGxzzThwoPqakifM3ZnmGmjz5naZ9kyFKzMUHF8laSNL2VjFGz1
KfjSzdjUJc5C52w2z9+RgpzHqlJtHiwcO/ajtfgYBa8cQkpe17PQnntPWuMK
BbsOC35fySGRJx5QM1VKQZ35X3zneBJxMkjPp4OCmUMt4YsTSGRfu/hsnLZB
iqZWfSKJPiETu4JeUXBNvHCPSTKJNnKVeuGdFBx93tugkEbiKreu/itdFLBc
zbNqs0mclHcJrOihIDxs+Aj7KYlFOy0dZ/gUlBWYyb9/RiJFuHuc/kDByEB4
ZjKPvs/lcgW0XWw1+qWaScz00CUlP1FgzNjs0N9BYtLuTQWKnynoT09dd2WA
xMeCYwzmKAWqHUPN9nwSB7ZJD96kbS9jeljiI4nD3Pp0coz+58PL8PtM4jy/
d/DncQrifplVtZsgcZ+8IJj9lYJ6L6tCsUm6v/90fjbt+eTYHWVTJCbs3dpq
MEmBt0AnWmeWxDjWaCdnioIUjv+qN3Mkync0VuXTfnmggoqfJ1FdXOmy8TQF
PyVKu9oKSAxWe7SjkDb+4zC7sEDi7cjmOZNvFPwLR02s6Q==
          "]]}, 
        {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ/V98+VUGhgv2j3LzrW+2Ht8/XeKNyQn5a3C+vqTh
lH77O3B+URDb6rzDT+D8HPP4muJvr+D8YsuPidqtH+D8i5btx3gufobz958M
Up775Buc77fnk4Os1S84X/bW8pk8DX/h/L3OnqVX3Rgc4PzTGnVz3jHC+a3S
yszWVcxw/luGFaqC/1jg/KXi0zXuL2KD81W/LVjeos0B539jFWVXusoJ56ev
Fmb5XsYN5y+Q0K1d/IcHztfcvuGa+2I+hHv61K89FBOA8/tuaW+c/QbB1y/8
GlW4TxDO35J95pBRkxCc/7DuhlRBmDCc/+nrR4OZMiJw/uXtF0Tv3UPwYyY9
eTVvoyicf/ICa513mRicf189hrHEWxzOP3qyPHiHjATCfecXJL+4j+AzvPuX
PGWzJJwfVpClpFMpBefX2M5ef99KGs73UmbU5eeVgfP/5JRkaF1E8MPOy0w5
uFQWzp8y9VKtS44cnL9oma/ZYz15OF/nRd37fwwKcP7PdXeVmpIRfCmmcD/n
cwj+4l9GiULminC+3FLR4OszEPy3t4VsbzEpwfnrjoixXU5F8K8H1W67eQzB
D8n9FydnoAznH7ZsexYxCcFvaniTr3MSwXc4HvTz/38EHwBi7LOV
          "]]}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{False, False},
       AxesOrigin->{2., 0},
       Frame->{{True, None}, {True, None}},
       FrameLabel->{
         FormBox["\"variance \[Nu]\"", TraditionalForm], 
         FormBox[
         "\"net electoral impact \
\\!\\(\\*\\nStyleBox[SuperscriptBox[\\\"n\\\", \\n  RowBox[{\\\"x\\\", \
\\\"*\\\", \\\" \
\\\"}]],\\nFontSlant->\\\"Italic\\\",\\nFontColor->RGBColor[0, 0, 1]]\\) and  \
\\!\\(\\*\\nStyleBox[SuperscriptBox[\\\"n\\\", \\n  RowBox[{\\\"y\\\", \
\\\"*\\\"}]],\\nFontSlant->\\\"Italic\\\",\\nFontColor->RGBColor[1, 0, 0]]\\)\
\"", TraditionalForm]},
       ImageSize->Medium,
       PlotLabel->FormBox["\"(iv)\"", TraditionalForm],
       PlotRange->{{0.25, 10}, {-0.18377223398316206`, 0.1325440382652633}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {555, -446.2383539249432}, 
      ImageScaled[{0.5, 0.5}], {360, 222.49223594996212`}]}}, {}},
  ContentSelectable->True,
  ImageSize->{752, 606.9844718999243},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{
  3.4854546202268243`*^9, {3.485454788989788*^9, 3.4854548178189573`*^9}, 
   3.48545498882835*^9, 3.4854550855027895`*^9, {3.4854553328595605`*^9, 
   3.4854553537638283`*^9}, 3.485456719218134*^9, {3.485456892395954*^9, 
   3.485456916716666*^9}}]
}, Open  ]],

Cell["\<\
Figure A.2: (ki=kc=.1, so group spending has a lower  marginal impact on \
reelection prospects relative to case in which ki=kc=.5)\
\>", "Text",
 CellChangeTimes->{{3.51190547834206*^9, 3.5119054807340603`*^9}, {
  3.5119135349482193`*^9, 3.51191356164322*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", "=", "5"}], ",", 
     RowBox[{"\[Mu]c", "=", ".5"}], ",", " ", 
     RowBox[{"ki", "=", "1"}], ",", 
     RowBox[{"kc", "=", "1"}], ",", 
     RowBox[{"tg", "=", "10"}], ",", 
     RowBox[{"m", "=", "0"}]}], "}"}], ",", 
   RowBox[{"GraphicsGrid", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"c", "/.", 
            RowBox[{"FindRoot", "[", "  ", 
             RowBox[{
              RowBox[{"cut", "\[Equal]", "c"}], ",", 
              RowBox[{"{", 
               RowBox[{"c", ",", 
                RowBox[{"-", "1"}]}], " ", "}"}]}], "  ", "]"}]}], "  ", ",", 
           RowBox[{"{", 
            RowBox[{"v", ",", ".25", ",", "10"}], "}"}], ",", " ", 
           RowBox[{"Axes", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"False", ",", "False"}], "}"}]}], ",", " ", 
           RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", " ", 
           RowBox[{"Frame", "\[Rule]", 
            RowBox[{"{", " ", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"True", ",", "None"}], "  ", "}"}], ",", 
              RowBox[{"{", " ", 
               RowBox[{"True", ",", "None"}], " ", "}"}]}], " ", "}"}]}], ",",
            " ", 
           RowBox[{"FrameLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
             "\"\<variance \[Nu]\>\"", ",", " ", 
              "\"\<equlibrium cutpoint \!\(\*
StyleBox[SuperscriptBox[\"t\", \"*\"],
FontSlant->\"Italic\"]\)\>\""}], "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"PlotLabel", "\[Rule]", "\"\<(i)\>\""}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], "       ", 
         ",", " ", 
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"CDF", "[", 
             RowBox[{
              RowBox[{"NormalDistribution", "[", 
               RowBox[{"m", ",", "v"}], "]"}], ",", "0"}], "]"}], "-", " ", 
            RowBox[{"CDF", "[", 
             RowBox[{
              RowBox[{"NormalDistribution", "[", 
               RowBox[{"m", ",", "v"}], "]"}], ",", 
              RowBox[{"c", "/.", " ", 
               RowBox[{"FindRoot", "[", "  ", 
                RowBox[{
                 RowBox[{"cut", "\[Equal]", "c"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"c", ",", 
                   RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}]}], "]"}]}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"v", ",", ".25", ",", "10"}], "}"}], ",", 
           RowBox[{"Axes", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"False", ",", "False"}], "}"}]}], ",", 
           RowBox[{"Frame", "\[Rule]", 
            RowBox[{"{", " ", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"True", ",", "None"}], "  ", "}"}], ",", 
              RowBox[{"{", " ", 
               RowBox[{"True", ",", "None"}], " ", "}"}]}], " ", "}"}]}], ",",
            " ", 
           RowBox[{"FrameLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
             "\"\<variance \[Nu]\>\"", ",", " ", 
              "\"\<ex ante group influence \!\(\*SuperscriptBox[\(\[Chi]\), \
\(*\)]\)\>\""}], "}"}]}], ",", 
           RowBox[{"PlotLabel", "\[Rule]", "\"\<(ii)\>\""}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}]}], " ", "}"}], 
       ",", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"tg", "/", 
            RowBox[{"(", 
             RowBox[{"exp", "[", " ", 
              RowBox[{"c", "/.", " ", 
               RowBox[{"FindRoot", "[", "  ", 
                RowBox[{
                 RowBox[{"cut", "\[Equal]", "c"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"c", ",", 
                   RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}], "]"}], 
             ")"}]}], " ", ",", 
           RowBox[{"{", 
            RowBox[{"v", ",", ".25", ",", "10"}], "}"}], ",", 
           RowBox[{"Axes", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"False", ",", "False"}], "}"}]}], ",", 
           RowBox[{"Frame", "\[Rule]", 
            RowBox[{"{", " ", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"True", ",", "None"}], "  ", "}"}], ",", 
              RowBox[{"{", " ", 
               RowBox[{"True", ",", "None"}], " ", "}"}]}], " ", "}"}]}], ",",
            " ", 
           RowBox[{"FrameLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
             "\"\<variance \[Nu]\>\"", ",", " ", 
              "\"\<ratio of group benefit to group spending \
\!\(\*SuperscriptBox[\(\[Psi]\), \(*\)]\)\>\""}], "}"}]}], ",", 
           RowBox[{"PlotLabel", "\[Rule]", "\"\<(iii)\>\""}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], ",", " ", 
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"r", "[", 
               RowBox[{
                RowBox[{"dixe", "[", "  ", 
                 RowBox[{"c", "/.", " ", 
                  RowBox[{"FindRoot", "[", "  ", 
                   RowBox[{
                    RowBox[{"cut", "\[Equal]", "c"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"c", ",", 
                    RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}], "]"}], ",", 
                RowBox[{"dcxe", "[", " ", 
                 RowBox[{"c", "/.", " ", 
                  RowBox[{"FindRoot", "[", "  ", 
                   RowBox[{
                    RowBox[{"cut", "\[Equal]", "c"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"c", ",", 
                    RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}], "]"}]}], 
               "]"}], "-", 
              RowBox[{"r", "[", 
               RowBox[{"0", ",", "0"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"r", "[", 
               RowBox[{"diye", ",", "dcye"}], "]"}], "-", 
              RowBox[{"r", "[", 
               RowBox[{"0", ",", "0"}], "]"}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"v", ",", ".25", ",", "10"}], " ", "}"}], " ", ",", 
           RowBox[{"Axes", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"False", ",", "False"}], "}"}]}], ",", " ", 
           RowBox[{"Frame", "\[Rule]", 
            RowBox[{"{", " ", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"True", ",", "None"}], "  ", "}"}], ",", 
              RowBox[{"{", " ", 
               RowBox[{"True", ",", "None"}], " ", "}"}]}], " ", "}"}]}], ",",
            " ", 
           RowBox[{"FrameLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
             "\"\<variance \[Nu]\>\"", ",", "\"\<net electoral impact \!\(\*
StyleBox[SuperscriptBox[\"n\", 
RowBox[{\"x\", \"*\", \" \"}]],
FontSlant->\"Italic\",
FontColor->RGBColor[0, 0, 1]]\) and  \!\(\*
StyleBox[SuperscriptBox[\"n\", 
RowBox[{\"y\", \"*\"}]],
FontSlant->\"Italic\",
FontColor->RGBColor[1, 0, 0]]\)\>\""}], "}"}]}], ",", 
           RowBox[{"PlotLabel", "\[Rule]", "\"\<(iv)\>\""}], " ", ",", 
           RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}]}], "        ", 
        "}"}]}], "}"}], ",", 
     RowBox[{"Spacings", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"10", ",", "75"}], "}"}]}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.485457586169049*^9, 3.485457590474704*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{InsetBox[
      GraphicsBox[{{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw9y3k41Akcx/GhGlraHLnPmZ9ZFYMQ69r59ihtd6uSDoVZUbmj7XC0E2K1
ORYlhWVdWzpcTQ/6ihBZDBnHzI+V2R5ZKefSamZn/5k/Ps/nef3xpvmGuPvJ
UygUD+n+f4lWSR+F0s2acSt7HnWEhze1J21fGvFlttTZlJHCEsoc7k69F9wk
kjnQ/mTUuYUJmc85TPuYxX+UmedwrUWZNysztrkTd0ULMu+tmwEDx08yGwyV
ZCtf+SxzRPwbZoSrWOYOK4NGAVUiM0fg7aSmLmEtbm7nFx7joX3Cb1XfGklY
ack+cVYneThpNc6MNZOwSs+69Nf68rBAYFZSbS9hzevRured4uGFBMfrKQES
lm6zGcs7goeE8LCHa7uENTk5RBxK5WG9647IPjcKjHr5WGxt5SH5PDAtYg8F
NgSnsKfbefiZlVqufpACSswGvbudPHRx7v/rOx8KnFjH1f7YJ+1t/Tw6L1NA
1RS94kRSM360b31EARsTfv8puR6sV3i6xNWVgzaeW4KOo9Sv1sfcmZKD9wYc
DrukB+P1iBVOl1ZAMbs5551fL76nlDJUxSvBn5Z93FP1NRZp3Vw/UkCFqFn1
yw51r5GxkF8SZ6YIa29P0/X29eHCKg0Fet9qqA0jX1i+6UP/e+or/zmvBHPC
ndrF/nzM12ZGFy4rA21f5fj3Aj5uePKIv73wS5hoHj7N3t+P9TdM+aOaKlAv
GkvxrOnHG0Nmj3MmVcD0K1FQhcEAWobNHw17pgrTednhv0YNYNXZjkZrjhr4
lxTRxroGcDRmQDfUQx0ukUEuf5oM4sz8tFW2/jpISdLOexgyiL1PujWGh9eB
w7F/XQyrB/F4umgi97EGOGu+jD29PIht3atidp3XhOSsg73nnIZwxPS4XMQu
LVBKy110jRrC5rYfDnD1tcGXl/bNHe4Q3ujKZ4+PaMNsw8VDzKkhpEyJ2RmV
OpCXFF1zlSFAj9AzdPOLunDauSCgyUOAUS45D0cc9eCdErPpQ5wAdxJyzLVr
9KH6QvfTvioBLgdGBGzk6UPZVdPLWSPSvks/43mRAaSpebvPKwkxI7Mnemug
IfiPHGUU2wixoHiP3ZiFEbSXpVooHBGi+XjMBzHFGGjjSXbzsUJcekDSOWxj
2OjIJoUFQtSVP7zXtdMYzniWd33dKsTCT9Y+avY0oA7E6cS/E6JhkcaB/ls0
4P7O7j2kSOJ7gZrLkDwd2AfmIhPXk/jghSa1148OwRVbVK5uI7HfPbpmsIUO
q60HZ+a9STwYJD5haEXAz2csw7jRJDY5JLz1TCfglyaV9KKbJC6e5XHWZhBg
5JUXoHWLRItcfaOWTALUGckWSVLflq88bJNNQPsfiYmB2SSGvxp5uSafgBBT
TqR1Dol0L4d7jeUEPLmfZVebSyLnymSIeRsBo7VewQ1FJHIr7JXH2gmwXfzJ
3qqYxCkRpzS7g4Clnmsf86Q+ukNnlNpNwIdA8abYEhKt1dzcR/kEnHLYMutc
RuJoYZ5tloiARsON4dX3SdTkT3TvfktAsvOcg0k5ibsV7YJWjBMQUdo8nS41
N7CjKPRvAi7YXN8U+oDE1M1LmrtmCLA+oTiz4RGJLf5bK+XmCGA6BTnekno5
O2Ufd56A3OG5cOpjEgPEjETGEgES2qWqN1LnWoWZCD8RsD0jpn5/BYmvfesa
0pcJyAyrrHkm9ReZCl47xAREGuvnm1eSCK3uSxIJAZ3Uuou3pf4PM2nGXg==

          "]]}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{False, False},
       AxesOrigin->{2., -0.45},
       Frame->{{True, None}, {True, None}},
       FrameLabel->{
         FormBox["\"variance \[Nu]\"", TraditionalForm], 
         FormBox[
         "\"equlibrium cutpoint \
\\!\\(\\*\\nStyleBox[SuperscriptBox[\\\"t\\\", \
\\\"*\\\"],\\nFontSlant->\\\"Italic\\\"]\\)\"", TraditionalForm]},
       ImageSize->Medium,
       PlotLabel->FormBox["\"(i)\"", TraditionalForm],
       PlotRange->{{0.25, 10}, {-0.4640871228039999, -0.2710868731711421}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {185, -148.74611797498108`}, 
      ImageScaled[{0.5, 0.5}], {360, 222.49223594996212`}], InsetBox[
      GraphicsBox[{{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVk3s0FOgbxwclbZGEaMlkJIVMCmnr9303qZG1rCZJtnXJ1m602tSWIlnK
WokZI2PJ5LLEDDMxQiuTJEpSbVYhdFtJGpdxGczs/P54z3M+57l8v+c5z7si
6CfvEHUKhZKkev+PMT8u+WZotRRH9A1e6hndxDHn4UDreCmEO8r89sXWICL1
13/9WFLkbzqrcSusBifeG4Ql5kiRpXN0K9lbg5PcTSffV0vRoVEUkkuvQfTU
r8mFQ1IwL/PynvVWI7Ha8CbNdxgBgSdyardXI9d5s76J9Qgytqlte2dZhfzU
Vq77xhGkRP9cV2dQhYL3AWanXUdgtVzIEM2pQhE3fs2L70bgxXGr7Xx1A6VT
rSQjbQTCP089Z/BuoKY6MExfMQKeQ81zP7MbeOx8oXHh41FIQ+d+s9a2ErqH
5PP2dY+iq0z82TWzSnilh7ldez+KOb7X9DfoVaJtZFeLq/oYrLa05EdOiNFa
Qn0SvX4Mk23qnMZ6MVpMa7qlnDHwvWRxX/qL0aT2cexvPxkONFhU6mRWQIse
4Eg7KIOuZPD6d8kVYOx/+svRYzLMWOg/ro2twL2aarl2kgy8RzPGVw9XoPHY
ecqOWhmaOrTj1P5XgYa3ZgurzcaR4Hnt7NK35ahr9qZlvxlHU1WQzaLN5Uh0
a6aNDo+DIbd11lhXDmYzLNyU42BydnVqWJajv8lmpcx4Aoyg9MQ1uuXQbdJc
5eE5gRZZsfuCt9cR1FizZrZ6AvqpHnlaqdehecfc/ttLk+g413Q3bFiEtq1c
+/KsSZi8LUho/VeEzPpF6+cXT4Ihmv7N+aUIdvUz68UNk5C4Yt7aByL43m53
0JZPIi7+oe2lAhGK6xKdaw9MoVfim2fhL8LXf40Q001yWLwe3OLYJsTdlN2K
DTvk0HXws3x/T4jNIVU3v2LKUeV8YX1+nRDWOtGOZ47IIWFyk+zLhNAKmG/T
mStHgv2H4dJkIeo1qEu5C6ZxwP/7NBNPIRzdPT7qd0+DcodRrSwug8BMWGwz
MA3drS1dLlllsBjTO7RtYhptpmeuci6WYUl2x6tji2dA/dLrTmB4GaRDwR1P
XGfAM2oOynQsQzEr8k5K6QykXlkeUXdLYfqikLswZhYZjUpL1qAAT+I+6Lkk
qfjBltSdvQIk2NklncqYBb1VXV37bwFG4iqj3wln4Xt4X2PZTQGa7O4GS/pm
wRCY/3b4dwEi4l/ZRrgoMLnuIl9kI8AaumVhsacC4am3P81ZIUDPix+offsU
0DWknA00EGAnfVjv6wgFNkZG7nZU8EHtVE6sKlAgxtZV5NHGR3u8y9H9IgUY
4Xa0gQY+fqdfGEirVfU75CRequZjPF6nW61dgbb+BbqyXD74dG+fja8U0FKj
G4sv8xHYyXl0ZEgBYemqoagkPgzPP2cUyBXoeFQa53mOjxa6aX2nphIbrVKf
rD7BR2xnwBd6S5Qgg7eyLh7hw+l8fgXDTKn699KgzT/wMUjvtz1rrUSA0tPk
YzAfuZ3WhWInJahr2+7l7Ofj5PlNSZcOKWHVYtce5cYHrWuPj8t9JSjx3qbp
ZnzUurgdf7adQqwq6pzpD0vQfTs0NcKDQprIT00l90owixTBEiaFJOQ4RK2u
L8GWzf+8/SZQVZ/5OdP6RglqN4T4tJ5W5V0XcxhXVbzynNM9IYUIJfXM/uMq
nlc9VbVMjUxqN8RWUFX8wCo6a0iNhDOilpMzxYj/nKbxRaQGSRmwC+nyv4aP
lKKVixVzCPUVzTVubxEKll626snVJIzNtrc9fAqxcpxXGGetRXp7D8iHTvyJ
8bkG88yfzSdNcyx330ovwMGSJXMmTiwgRkaCrO77+ao7s43Km1lIJm3FzWLj
fKy+IWzfkadDeEoZw/v7PNQmr2rvM9QlVltn6qqbc5H8wlr0x6Au6eiJSqtd
kwu7ozK/o7cWk47bQ+2nM66i4nBLvX2sHvHN7vpigdFV9EV3LAv3WUI27nKa
uZPGw4hsmM410Sf0Bvd1eit4eHqjzeDlS33SaxD7dNXhHPiz3gxcERmQFHM/
S5vkK2humxvtfsKQ9B5nPmTfz0bPKn+1CPelJMWiqHCnWjbuNv+yq8rEiFCE
i/PErllIfsQL7u8xImT0dKVOzh+gDCmC08qNCeXFcp/6kUz4hP9obnNqGeGJ
D2p67M3EmS1/lPVs+pyk7F14cFczFztparaLtE1IQKh9+sv1XMyERhxa89iE
UFMM9gaWZsDnkUna7QJTwqPbP5TQMpDGeRK1LXQ56R3d/amk8DJy//RwfL3W
jMREZpyR2F+GTX/0JwWFSqhFE9SBqnRMlXabxwZTiYQ2xc92T8cy9T1fu7RS
CSXBLKniOQd5cvtAPacVhHpy+xX7IxwsLzDY9U/GCkLH5INL2hx87NTb8kLd
nEgKr5/7vSgNpQ2Gmk9DzEnv9IeAdI80/OMdVfm80Zx4RTD/DZlggxmm2L+c
TiMBOoJgnWw27jiff+fLohHpIaYfx52NycOPYxel0YhXrd9Fu51srL1iYtbI
UbHP0rFmBhuZ6uV71nNphJp93l/pysbPD3qatHk0EmM+NyOUsGH+rXNJvUA1
j99c5uXARmzM4E82zTQiBNMAZmxUXXda+Po+jfAKxdd6TNkYehNbxG2hkfDL
YeExJmz4uRn3abap/PWL0+qN2bDX2+7d167Sk0Y6uemz0ZeXsyH9jao//3jX
d/PZMGwfaPvqHY2kfO+UqqHFxldajmEa/Sr9U/m/FGqq9EJbCsI/0Ihknc/z
TxpspDhMGbqPqPLPPg3FKlhoPLitXG1MxYrXdlazLMxwL3lWyVR+KXa5D6dZ
OKRYmbBySuUvMWeZ8RQLV+hHLbrkKj9GQmrdBAt/B/0lYc2o5v/2cU/IOAuf
ceZ966ZQ1f/gIVkgY4Hc855SKlX72XZ37/VRFv4DWuIwOg==
          "]]}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{False, False},
       AxesOrigin->{2., 0.02},
       Frame->{{True, None}, {True, None}},
       FrameLabel->{
         FormBox["\"variance \[Nu]\"", TraditionalForm], 
         FormBox[
         "\"ex ante group influence \\!\\(\\*SuperscriptBox[\\(\[Chi]\\), \
\\(*\\)]\\)\"", TraditionalForm]},
       ImageSize->Medium,
       PlotLabel->FormBox["\"(ii)\"", TraditionalForm],
       PlotRange->{{0.25, 10}, {0.018507754067574655`, 0.10583608552868082`}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {555, -148.74611797498108`}, 
      ImageScaled[{0.5, 0.5}], {360, 222.49223594996212`}]}, {InsetBox[
      GraphicsBox[{{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1Hk41Pv7BvAhiUJlSwiZqCwlRETvp+TUjLWxfMYMYyxFRSg5WXIkKeVk
VyQ6ZCmR7YjkdNAR6msru4kZ21iyZZvB+Pn98Vz39frjvq77r2e/qw/pIj8O
h2vavP9P4z6fm3HW/WjwkSzvQJob0O6f+PLGvx9ZNr40vBnlBtGLiL/pVT+y
E1F3T77mBhNtlr4Ckgxk6Y/bk2HoBjkPvcwD2QxUp+npfa7HFTpWbtxN3vcD
RVBcp/RrXUHAI/h9KekHElTZJZmV7wouJg8PTX/4gdIeFH/u/cMV5NdyBdzi
BtDNhK1EP01XMLvy9mRY/QByd2kJ79rrCkHd5defrw4g3du3k9IFXcGr13V2
UnsQ2Qig6LNMF2gq96OpPh9EZKGmvlepLnDPJ8bwmR8TcU8Ppc7IuUCaqkTn
4WgmOvbJxc1S1AXKGMl+FTlMRK7ocp/i0YFllp7X0cdEjsQU9gCLDnCoQHrX
byykvuITGFJAB/KAVkk6nYV+V3PUevOCDj7JZRaawSx0ycFobWciHdIFPkQQ
i1joXNAxYZ9gOqwNNs1HyA4hQ9bPK1fN6SD51PKxxPEhdOc1a0nuNB3UrdoP
Z1oNIZsjpOHl43SgVPfQP0YMIWqJlsIRJTq8S2E3c6aH0KMQk1NLU85wnSSY
f61uGPmRXqt8tnEGwXKzfwz7h9FTD9wg94wzpO6NaxNcHEbFjKhCd21nqB2U
W0lXHUHjc5fjOnc7w26fY6YtUSMokG6/LvONBkWPHAeOWo8ivT9la+xpNDg7
89f8qucoavA+SguzpkE3aWxrw51R5E+Jy2w/QwOc7HUNeukoOrUg7TF9kAbW
efcDY6XHUFhCwLPZX04w86lEYq5/DHXRXOaexjtB+KEV1erFMXTx6uh9/vtO
IB1tbBglxkYed6IuPwp2glM2DfT9wEZLdusKHHcneMxkFFzIYqPgO0ySvoET
HOEJnS+5PI62s1qcf4w6gpe+c8iNpQnUqHcpxtDWEShnbwvXiU2irIRY3Vkz
Rzh/4Vmy+MFJlPiSW1Vh4ggHrnYVFWOTSK0l0v+OjiP0pVuNzFRMortxdxkT
Eo5AFARLr+ApNCTm4jbZRYUTErS+qoQpFMSXklXaSgVVpRDPHW+mUJSmsemj
RirwG1aEv+6fQttIpZMeVVR47631jm38E2GNnXltGVQ43KGkdBE3jSr+UHCG
q1SQZp0qKJOZRuW+lanj7lQQmHE0FDg2jbJqKZEZNCoMCqXYZrlMo8/yrC4t
EhWeGu2OYtZOoyjZoSsjBlQQesk373RvBpkG4Exv7aDCDYM5F/V7s8jO1M3c
u5wC/nF3xyjxs+i8qqk7XzEFAsalvB9mzKLbG5krGfkUuJVieGu8chZN/clV
WHtBgVDO3ce507MoDZepoxlNgYeV0lV48hxSXZVyo7hTINPASFJefR7tELTx
1ZGjwMu45hSzE/PIWErLa1iaAtnjdMVg03k0mvuzL02cAnkp99R6nedR5KXK
Jvx2ChRymuFp4jwqisAY9zkO8L7SxVuSN4+EbRjUlB4HaDO4Xy/S9gud8VM4
4pfuALs8uduojF+o+3ROrvozB7BO9ia8Gv+F6DU49sQTB2idt/lqyr+A/qW1
JPwe5wDN+UrtoToLyPZ8fkhDhAN83feeMZu0gBy6KdLg5QANfD8XvlMW0aXm
V83nTjmAkBZdD++xiHo9TaSjTjrAedq33/1uLCKBVuqO5hMO8Pl9JVd086l1
rP436KrjAPU3InHnqheRvVGPz7tDDvBpRFGkUnEJbZ3klxaUdICPjST88+El
lB9fUy7ykwwPCY34X3NLyEgYY0VMkMG2ER0gbCyh5sKQ6zg2GdgNGiqLe5dR
84xvNt8QGXY1CB60sFpGQaycNPUeMrjWv1dbr1xG1Y+sjWXqySBYp6ztFLOC
tKzVxtUyydB6JkW7NG0FCU8w6ra8IENq7U4d4dcrKEtChDDwnAxHa9d0/v60
grK/HEfpKWQg13QeF+WuoNxuts3JODK8/vjQoNqdgzrflIhOh5HB8sM87DPk
IsuThZf3uJLhv1g7nu45LqJ/9IowpZPB6GJFlbktF2mzyQU3aWRQFwvVC7nG
Re9q2HL9FDII0YU1+jK5KFC7R6TGhgy1W5T2pOxYRc6G7U5sUzLomVn8lGSs
IrSgqvpEnQwFikWvNSZWUcvNc/04NTIcWBD3PLu8ijx0zJHXITJIPO9m3di9
hl49CeQ7r0KG2Wm37nbTNRSm260pobi5Pz6oLrZwDYVHpP9aFCfDvt7cFJGw
dVR/Y+eL/lUM2iMmxU2i15FB4SWdGC4GD44ejQ58uo76jHjcMxwM5iPKQ0eL
1tF4qJlS4RIGDUf/c/uXuY44fyckxc9h4H+PpelvwkNVHgfq48cwUNNSzX1t
xUMNAVH92CgGA72XlZhUHvoisiSqMIIBUWtO3NKfh8hinKoCFgZKfRvLB7N5
6PvCR7leBgad90z8aMU8dHnJg5nbj8EjrfsTidU8xBd0pzygD4Ole2IMvk4e
UtK+FrWnB4M3WiT7Eyweyt8fFDHehYFLX1LLtWkeCud5Rn3oxEA6sud8NpeH
MnUYybEdGHzV2lfbJ7iBbB8H51/8jkF4H/2kuMQGWt4bYu/aioF+5Muy84ob
iKZtHvegCYPMPvXcv/U3kKaMFG34HwxuRRpGx3huoJZ/YlK7czHA92P2Jk0b
aP6T91JBEAbVJoSbHb/hICIw9CATjwGjxivO3wIHPUqZYocVMFhHsQUStjgo
sFZVCJDBwNioa+SCCw6yrNJSFUU3+7oX7ZuDcfA3eQvx7ZI9VKvc0f9chIOk
xn1FVU2b3lbJqZDlg2aTEcwxYNNfDoWmTfNBDv5IakivHayVGa00LfBB70DR
Bc1OOzBKt77O4fLBqa4DFsw2O3jve+uS/TZ+sKIq89k02kG5VIPlLiV+MD96
c9mxwg7eOnsoRlzgh5G/1Da2PbGDv35l/3u1jB+S/7JLzrS3g3ty+C0ng7ZA
oEWGnuEPW/iJy1PZzRMAx2xoVxCzhew9Tw4NZAoCva623s3SBlSWXuRGqAvB
9bT+5eYyEixtldqm3CEMHfomt68cIIFHvoTAcsAOyJBsTPuedwFeyGjezloT
gWWT36RnzlyAw++KOs9liYFQS8hK/KA1VD8+2MmU3gX9krz3Vx5bw+Ne9eJn
U7uAV2I2duGUNRz1W6T4/bMbrBux7R3TVlB29Wutdrg46GJ18QEBVsAM7Zb1
tZcAHfdWQ5MNS5hfnNNKkZeEB1Vq5HMplvDtXavUjx+SoDfjo8gzsgTH+OGJ
9GIp0M1RE40YtIDG1q2hZgHSkJjtavUs1gIGDjry+ZvtgUbyK2M9sID/Gn+3
qZCXgT8sTCwmlszhccsLN/aADJR51JDF35kDbprnlli6F1ZMivWIAeZg73tF
WSNQFvYdkviYZmwOIcbP3g4YyoG+xkdxorA5EPF8mjtF5cEBlxHz7ZsZrHn5
e6q1yUOzplx300szsG+RT6zJ3gdCDsW4HH8zSExqv33WSwGGmZHyqkQzyMyx
0Bs6oggVp10aU5XNQIMdOsPDKUGljNrCGIcInEKGcribEvDnbQ/+3kEEWX7M
0qRZCfL46zVfFREhi6vtIq6/HyYWa4c5fxJBIVvKpuvpfhgey1tX8CHCzz5x
415+ZZC/kaCnZUWEwk/Sgt8uKgNsH7Mt1yZCF+l2eU+9MvxvPKNkeQ8RbL15
NAUtPBRNzWkcWSNAnUHkKDkeD2G6+gl2QwRYudoWvjMRD9FPjNlsFgGOpMsr
1ifhIdyizTpk06n8pZhOCh46Mx85ZjEJcP3LQIPoCzxEzlU4zQ8QQNnJIL+2
AA9XDN35E/sJEB425aPRiAeVkpaikQ4CVJToiww14SH2tK938Kanh8PzUr7i
QVmHY7R70xTCXqZgKx6oMkWSxt8JoC3+G4nZiYcqkkpOUjsBmFkZusnDeChJ
aDYnthBAunOi1XwUD6R3aceZzQQwF9Lz3sLGw6mgLcdubbrC62u27yQe0tTu
O+f8jwCxxznSZvN4mH/LSN3ylQD1HmdL+RbwMHJybM+zLwRYS4mxqljEQ4ym
a672pj15Kg9UOHg4Vv903aWJAOlafgf6uXjwKiV+4jQS4Lvrh3/j1/AwGU95
Hrfp7UnbnAg8PKhH1z04vGn4TOJsbGz2G8IiaxoI8H/0Q/Fu
          "]]}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{False, False},
       AxesOrigin->{2., 60.},
       Frame->{{True, None}, {True, None}},
       FrameLabel->{
         FormBox["\"variance \\!\\(\\*\\\"\[Nu]\\\"\\)\"", TraditionalForm], 
         FormBox[
         "\"ratio of group benefit to group spending \\!\\(\\*SuperscriptBox[\
\\(\[Psi]\\), \\(*\\)]\\)\"", TraditionalForm]},
       ImageSize->Medium,
       PlotLabel->FormBox["\"(iii)\"", TraditionalForm],
       PlotRange->{{0.25, 10}, {51.568405926591716`, 156.87951569733468`}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {185, -446.2383539249432}, 
      ImageScaled[{0.5, 0.5}], {360, 222.49223594996212`}], InsetBox[
      GraphicsBox[{{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxF0g0w1GkcB/BFISlar2mx/Nvq2kSdGOR+T8PopBeWVieF9hwXoqJ0F4e8
1GWQVmxq7f4RM0lKSlPbbZSXbFovUVFWJMlKOjqO3XuauVnPzDPPfOb3PN/n
+c08VgeiWaHqFAolCM9vq9Kk7DmFIgXK/2MBEuor7eatHV7oNRcyb2pt9sPp
+nkz9sRfm8hoU9mrwDNtUK9D5XzTUfsmyy6VbZdv4GZDr8pHWJpXD9UPqhzp
GHTy6NSIykedPocw08ZVbnPKaNBt+6LyX80s4vLglMo7708gc+cZlc1flfF0
k+ZUbk/9SHXLnPdpW9vMEwXznki9nThUNe8m28cccf+8Y9Pe2sS6KVSW2JnX
9WgqVU7pCXahGnxzHLAtZn5wTC+59aMlNnIqrvNaBqN2wzZ/MLHpAT63F9OA
7GGW1Thieyek3+UQEJ/unJkdjv1CYyeNYw9Erz/b7cm3/eT7vmZ3ELl5xj33
oCDKSq3gQxI/eP0w8lzsDuzKphPCxN0wBznXDPywqQ9i/7Rjg+vm7nc+Idgy
zqPE8/4gsg9lt/6OTT8qmtwdACJGsmNjFXbVGQf3p0Eg0ro7XWumhihLO5K3
uYWCqGVN4qUxbA9mRe6FaEhbQWi4/KaBkqy+TDg0xoOcUs5YpliAkn6JaLeM
TIJSk/w1faQmQjq/yp2iU4ExJShLZWojygdJaJQsA6YWGmlZP1+EEKNTss3n
LIRdNVjw9dhilMTkbvKIzgKBqU1C8awukvGVhavP5cB3d6q6thYvRUmS3ncf
5edAlLW6q99YHyWteiyONz8PWa+YNwpH9ZHgfskpiTcXbA9PBhx+sAyJ35z0
fXQwD25FSOo2plCRuChPryXkAvQnvjCLYRsgNJ5fUbMvHyYmP9vxaIZIoJu9
F1wKoOOO1OjNG0NEN1kVc12bB4G5gyP8G0aI0q5wjuvhQbN0YaLXMWMk7vV4
Wpl3EfpWB6rFepkg+tkZRNldCI+bj/vW0kxRsM+pe0rNS5D1TMAZ7jNFYrnz
7LuSS0AZU3C41cuR7NCGxg9bLwM75qD1uhNmiOKe5/D+xWU46Vp4vc95BUIl
vVvqg/mwjVCz0VtCQ8G9w518OR9mI2PD17bRkKzaVrQ1ogjYz2jch6XmiN5Z
UyuQFwE3rz3BPdIC0QcMW402CIC8ssNhYL0lEq8dMB0PE8C64cRPCgod0dfm
HtERCmC68rV1CoeO9N2+1jt2CsBM3X+nWysdocz4LcmLhFA8szGE6miFxPdc
zMUuQrAoNfLtLrBCUpvM47JwIch7qK6v1K2RQEf7inqBECofGWt2hFqjqvHN
FQfrhNDNSrj9sgHXa1aa5I4IwS9Ksd/CjkD0cX+5wJCEeqf0oT25BEIN+UMZ
ziT8E9GWosclkOyJ0/b1LiSs59MsG/KwmSxeJ/ZF9Wr/73l4f8W/H+iuJBxp
6WtaIiBQ1aem0FogwXqf09W6awQSc9Ukb91JSEkajV7XjOvlW+IZu0iovemo
O/CEQDmpet1N2GODKeU8Cc7TUZhHepMQ4Lm8X1NKIMGkz883fUjYSPVg9XcR
+L+Fdbj6kdBfXGR/YRC/56kUvH8iwbhrRLp9CJ8vNyUmsLdrO0RpDOP+NDvH
zgfg+yIlpTEfCRTTehe695KQs2na2GuCQNIWaWPgfhIawtyr1f4mULCW+6c5
7Fle9q7aSZxf7KvkB5EQrmCcZkzjfFbgS1kwCXy7wyt7Z3A/Z4KKk0NI6Dxw
X5w7i/OjDNjWB0jQydPa56nA1k34XIeNGlnTSiXuJ1YYx+GQ8B9chWqB
          "]]}, 
        {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ/V98+VUGhgv2FhMZLl1kW71/usQbkxPy1+B8fUnD
Kf32d+D8oiC21XmHn8D5OebxNcXfXsH5xZYfE7VbP8D5Fy3bj/Fc/Azn7z8Z
pDz3yTc432/PJwdZq19wvuyt5TN5Gv7C+XudPUuvujE4wPmnNermvGOE81ul
lZmtq5jh/LcMK1QF/7HA+UvFp2vcX8QG56t+W7C8RZsDzv/GKsqudJUTzk9f
LczyvYwbzl8goVu7+A8PnK+5fcM198V8CPf0qV97KCYA5/fd0t44+w2Cr1/4
NapwnyCcvyX7zCGjJiE4/2HdDamCMGE4/9PXjwYzZUTg/MvbL4jeu4fgx0x6
8mreRlE4/+QF1jrvMjE4/756DGOJtzicf/RkefAOGQmE+84vSH5xH8FnePcv
ecpmSTg/rCBLSadSCs6vsZ29/r6VNJzvpcyoy88rA+f/ySnJ0LqI4Iedl5ly
cKksnD9l6qValxw5OH/RMl+zx3rycL7Oi7r3/xgU4Pyf6+4qNSUj+FJM4X7O
5xD8xb+MEoXMFeF8uaWiwddnIPhvbwvZ3mJSgvPXHRFju5yK4F8Pqt128xiC
H5L7L07OQBnOP2zZ9ixiEoLf1PAmX+ckgu9wPOjn//8IPgD80X9h
          "]]}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{False, False},
       AxesOrigin->{2., 0},
       Frame->{{True, None}, {True, None}},
       FrameLabel->{
         FormBox["\"variance \[Nu]\"", TraditionalForm], 
         FormBox[
         "\"net electoral impact \
\\!\\(\\*\\nStyleBox[SuperscriptBox[\\\"n\\\", \\n  RowBox[{\\\"x\\\", \
\\\"*\\\", \\\" \
\\\"}]],\\nFontSlant->\\\"Italic\\\",\\nFontColor->RGBColor[0, 0, 1]]\\) and  \
\\!\\(\\*\\nStyleBox[SuperscriptBox[\\\"n\\\", \\n  RowBox[{\\\"y\\\", \
\\\"*\\\"}]],\\nFontSlant->\\\"Italic\\\",\\nFontColor->RGBColor[1, 0, 0]]\\)\
\"", TraditionalForm]},
       ImageSize->Medium,
       PlotLabel->FormBox["\"(iv)\"", TraditionalForm],
       PlotRange->{{0.25, 10}, {-0.05278640450004207, 0.03591452418252428}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {555, -446.2383539249432}, 
      ImageScaled[{0.5, 0.5}], {360, 222.49223594996212`}]}}, {}},
  ContentSelectable->True,
  ImageSize->{752, 606.9844718999243},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{3.485457597057988*^9}]
}, Open  ]],

Cell["\<\
Figure A.3 (ki=1, kc=.5, so there is now an \"incumbency advantage\")\
\>", "Text",
 CellChangeTimes->{{3.51190548841406*^9, 3.5119054906940603`*^9}, {
  3.5119135726272197`*^9, 3.5119136130002193`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", "=", "5"}], ",", 
     RowBox[{"\[Mu]c", "=", ".5"}], ",", " ", 
     RowBox[{"ki", "=", "1"}], ",", 
     RowBox[{"kc", "=", ".5"}], ",", 
     RowBox[{"tg", "=", "10"}], ",", 
     RowBox[{"m", "=", "0"}]}], "}"}], ",", 
   RowBox[{"GraphicsGrid", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"c", "/.", 
            RowBox[{"FindRoot", "[", "  ", 
             RowBox[{
              RowBox[{"cut", "\[Equal]", "c"}], ",", 
              RowBox[{"{", 
               RowBox[{"c", ",", 
                RowBox[{"-", "1"}]}], " ", "}"}]}], "  ", "]"}]}], "  ", ",", 
           RowBox[{"{", 
            RowBox[{"v", ",", ".25", ",", "10"}], "}"}], ",", " ", 
           RowBox[{"Axes", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"False", ",", "False"}], "}"}]}], ",", " ", 
           RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", " ", 
           RowBox[{"Frame", "\[Rule]", 
            RowBox[{"{", " ", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"True", ",", "None"}], "  ", "}"}], ",", 
              RowBox[{"{", " ", 
               RowBox[{"True", ",", "None"}], " ", "}"}]}], " ", "}"}]}], ",",
            " ", 
           RowBox[{"FrameLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
             "\"\<variance \[Nu]\>\"", ",", " ", 
              "\"\<equlibrium cutpoint \!\(\*
StyleBox[SuperscriptBox[\"t\", \"*\"],
FontSlant->\"Italic\"]\)\>\""}], "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"PlotLabel", "\[Rule]", "\"\<(i)\>\""}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], "       ", 
         ",", " ", 
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"CDF", "[", 
             RowBox[{
              RowBox[{"NormalDistribution", "[", 
               RowBox[{"m", ",", "v"}], "]"}], ",", "0"}], "]"}], "-", " ", 
            RowBox[{"CDF", "[", 
             RowBox[{
              RowBox[{"NormalDistribution", "[", 
               RowBox[{"m", ",", "v"}], "]"}], ",", 
              RowBox[{"c", "/.", " ", 
               RowBox[{"FindRoot", "[", "  ", 
                RowBox[{
                 RowBox[{"cut", "\[Equal]", "c"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"c", ",", 
                   RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}]}], "]"}]}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"v", ",", ".25", ",", "10"}], "}"}], ",", 
           RowBox[{"Axes", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"False", ",", "False"}], "}"}]}], ",", 
           RowBox[{"Frame", "\[Rule]", 
            RowBox[{"{", " ", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"True", ",", "None"}], "  ", "}"}], ",", 
              RowBox[{"{", " ", 
               RowBox[{"True", ",", "None"}], " ", "}"}]}], " ", "}"}]}], ",",
            " ", 
           RowBox[{"FrameLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
             "\"\<variance \[Nu]\>\"", ",", " ", 
              "\"\<ex ante group influence \!\(\*SuperscriptBox[\(\[Chi]\), \
\(*\)]\)\>\""}], "}"}]}], ",", 
           RowBox[{"PlotLabel", "\[Rule]", "\"\<(ii)\>\""}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}]}], " ", "}"}], 
       ",", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"tg", "/", 
            RowBox[{"(", 
             RowBox[{"exp", "[", " ", 
              RowBox[{"c", "/.", " ", 
               RowBox[{"FindRoot", "[", "  ", 
                RowBox[{
                 RowBox[{"cut", "\[Equal]", "c"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"c", ",", 
                   RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}], "]"}], 
             ")"}]}], " ", ",", 
           RowBox[{"{", 
            RowBox[{"v", ",", ".25", ",", "10"}], "}"}], ",", 
           RowBox[{"Axes", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"False", ",", "False"}], "}"}]}], ",", 
           RowBox[{"Frame", "\[Rule]", 
            RowBox[{"{", " ", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"True", ",", "None"}], "  ", "}"}], ",", 
              RowBox[{"{", " ", 
               RowBox[{"True", ",", "None"}], " ", "}"}]}], " ", "}"}]}], ",",
            " ", 
           RowBox[{"FrameLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
             "\"\<variance \[Nu]\>\"", ",", " ", 
              "\"\<ratio of group benefit to group spending \
\!\(\*SuperscriptBox[\(\[Psi]\), \(*\)]\)\>\""}], "}"}]}], ",", 
           RowBox[{"PlotLabel", "\[Rule]", "\"\<(iii)\>\""}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], ",", " ", 
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"r", "[", 
               RowBox[{
                RowBox[{"dixe", "[", "  ", 
                 RowBox[{"c", "/.", " ", 
                  RowBox[{"FindRoot", "[", "  ", 
                   RowBox[{
                    RowBox[{"cut", "\[Equal]", "c"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"c", ",", 
                    RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}], "]"}], ",", 
                RowBox[{"dcxe", "[", " ", 
                 RowBox[{"c", "/.", " ", 
                  RowBox[{"FindRoot", "[", "  ", 
                   RowBox[{
                    RowBox[{"cut", "\[Equal]", "c"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"c", ",", 
                    RowBox[{"-", "1"}]}], " ", "}"}]}], "]"}]}], "]"}]}], 
               "]"}], "-", 
              RowBox[{"r", "[", 
               RowBox[{"0", ",", "0"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"r", "[", 
               RowBox[{"diye", ",", "dcye"}], "]"}], "-", 
              RowBox[{"r", "[", 
               RowBox[{"0", ",", "0"}], "]"}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"v", ",", ".25", ",", "10"}], " ", "}"}], " ", ",", 
           RowBox[{"Axes", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"False", ",", "False"}], "}"}]}], ",", " ", 
           RowBox[{"Frame", "\[Rule]", 
            RowBox[{"{", " ", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"True", ",", "None"}], "  ", "}"}], ",", 
              RowBox[{"{", " ", 
               RowBox[{"True", ",", "None"}], " ", "}"}]}], " ", "}"}]}], ",",
            " ", 
           RowBox[{"FrameLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
             "\"\<variance \[Nu]\>\"", ",", "\"\<net electoral impact \!\(\*
StyleBox[SuperscriptBox[\"n\", 
RowBox[{\"x\", \"*\", \" \"}]],
FontSlant->\"Italic\",
FontColor->RGBColor[0, 0, 1]]\) and  \!\(\*
StyleBox[SuperscriptBox[\"n\", 
RowBox[{\"y\", \"*\"}]],
FontSlant->\"Italic\",
FontColor->RGBColor[1, 0, 0]]\)\>\""}], "}"}]}], ",", 
           RowBox[{"PlotLabel", "\[Rule]", "\"\<(iv)\>\""}], " ", ",", 
           RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}]}], "        ", 
        "}"}]}], "}"}], ",", 
     RowBox[{"Spacings", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"10", ",", "75"}], "}"}]}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4854576026116595`*^9, 3.4854576038752756`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{InsetBox[
      GraphicsBox[{{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ/V98+VUGhgv2R29fvRi64/P+6RJvTE7IX4Pz9SUN
p/Tb34Hzi4LYVucdfgLn55jH1xR/ewXnF1t+TNRu/QDnX7RsP8Zz8TOcv/9k
kPLcJ9/gfL89nxxkrX7B+bK3ls/kafgL5+919iy96sbgAOef1qib844Rzm+V
Vma2rmKG898yrFAV/McC5y8Vn65xfxEbnK/6bcHyFm0OOP8bqyi70lVOOD99
tTDL9zJuOH+BhG7t4j88cL7m9g3X3BfzIdzTp37toZgAnN93S3vj7DcIvn7h
16jCfYJw/pbsM4eMmoTg/Id1N6QKwoTh/E9fPxrMlBGB8y9vvyB67x6CHzPp
yat5G0Xh/JMXWOu8y8Tg/PvqMYwl3uJw/tGT5cE7ZCQQ7ju/IPnFfQSf4d2/
5CmbJeH8sIIsJZ1KKTi/xnb2+vtW0nC+lzKjLj+vDJz/J6ckQ+sigh92XmbK
waWycP6UqZdqXXLk4PxFy3zNHuvJw/k6L+re/2NQgPN/rrur1JSM4Esxhfs5
n0PwF/8yShQyV4Tz5ZaKBl+fgeC/vS1ke4tJCc5fd0SM7XIqgn89qHbbzWMI
fkjuvzg5A2U4/7Bl27OISQh+U8ObfJ2TCL7D8aCf//8j+ACDP++1
          "]]}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{False, False},
       AxesOrigin->{2., 0},
       Frame->{{True, None}, {True, None}},
       FrameLabel->{
         FormBox["\"variance \[Nu]\"", TraditionalForm], 
         FormBox[
         "\"equlibrium cutpoint \
\\!\\(\\*\\nStyleBox[SuperscriptBox[\\\"t\\\", \
\\\"*\\\"],\\nFontSlant->\\\"Italic\\\"]\\)\"", TraditionalForm]},
       ImageSize->Medium,
       PlotLabel->FormBox["\"(i)\"", TraditionalForm],
       PlotRange->{{0.25, 10}, {-1.2325037190146173`, -1.2325037190146173`}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {185, -148.74611797498108`}, 
      ImageScaled[{0.5, 0.5}], {360, 222.49223594996212`}], InsetBox[
      GraphicsBox[{{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV03s4VNsbB3AhEclxJ7kNpVBSuVR610mKKJpuDonSZYoykxKdksSJ6kid
iBCHyE7lepAot2SUzBgGg9njkkYXIZcZ19/6/bGf/XyetZ93rXft72twLIB6
QlJCQiIHP/9/z2s8bZWQYEFKU8yOuXkSpNG/SvMWLJD+pPNyFluWluQ8e5QF
SwMVBmewl8TG/TV9nwVRtILv09jKpXerxDUsCDKmP5/C1hBEz0yOsSD3XLCW
GFtHNsJ6wpgNZT/uGU5i61uEnh87yAbPsPbCMWxj9+AXozfZcGb4avEI9uqw
88LhUjY4NN5SGsJek+1P+TnIhm0r0p4MYq9nnTzyQ7sZar+U7e3HthH5JH5z
bga7JPFoN7advmfL4JVm2OtwwpuLvc3xwFLhi2bQUHtzuhF7B9111wC/GRTv
uAiqsZ0TnCL7l3KAXlpypxjbrdK+shdxgCrfsz4be7/QblrA4MD473VxD7H/
ULKxItM54FN3+mwE9hEbS0Y3hwMibhX9HLavj9nzTukWsMh76XYAmxa14kvH
xhag8idLbbD98/QN20+2gB7TzU0Tm9Gu7cV92AK8oOOlv+ZICJJQS2ipbwFv
hvDvBuzLJks5zeIWMMgqpiVjX3OTU2SvboVdckOdNOyIYCmnJs9W8PpPK2gt
dnTa7I3GO62we/2Rqp+zJMTUT775UNEKl28/tyew7w+PiJlDraBYPBXqif1Q
8/uGej0uLBeHjSzETkYDAXVuXIgtn1bLniEhjSZ4VnudC3qHRnx/x86M5X2u
LuDCtf3TruxpEp6VtuhX9XHhj0Jll0PYuYJPnm9V28Azkf++eYqEIllmfIVD
G7yfkV5nj13hXqFQ9rQNHIWCEAkxCdVhJTtL29tgQL7W3EVEQl12fnixXDvs
2SwdfGuShA+snIqiTe0QaK9bVTZBAkuUKSrwawdDtzBG1zgJrfpp6/OT2yHo
TOfI0BgJPMdH53Ib20EtLDBn5BcJfQkx/TlrO8B5jc6FdyMkCCuj9J75dIAv
4egZN0zCd2G4R/a9Dkifu2y27ycJEzaXWE9+dcDrUZ+98d9JmPZhyGcY8eD0
zMa/tb+RIBHtt+PfAzxwP9J449YgCXId3uUpJTxgpv0VazpAguICj8kkIQ82
Bp3I8uzH87Fqv+UjrU5Q0CODLvbieQhxzI7/sxM+jaecO84nYa3Wugd3oQuI
j/IEpRXn6abNh+cXukBvQNLWq5mEO+Mg2UB0waUSm1fBTSR8Ze+hS6t2Q6Fa
o2AfkwQtdPCpgVM32Kk41ijXkeD40ou/NbQbbOvcFAqqSci65e8SIuyG9N2T
MbGv8X2JAm/EL+fDmWdG1k0leN5P/VlWSOXDcPSY4Y9CEo7a3zIZKueD6o9O
4bscfN6Zp9K+90igO4yHDyTieTmTuzkM77OBkKJrx+F8thefT8H//YvRlptm
sTjfvGPD3ywF4L2cqvEtkoSGYsaRFSkCSD7dZtgcQELv2XFxUYkARNNOKZOn
SRAbhcTZNwug8XZq7LQvCSb/hH30WdQDw6NvT6QeIiEy4O6mJEYPyGyxpnra
4XyuUOGuutMDGSctp4OtcL664xmlWT2wJyY4Jmgtru/8OLu1swe23dY9r2xA
AjJ5oa60oxdCROs/tEiSMCNoGI3Q7gPVgvUUZiXuM2FPjMrGPngcvfWjbCkf
TF2bV6W79kHbkl2XzXP54FHR4fM2og8KdeX8VqbwoSRR+Ek81AfmpjWhwkt8
OE+VyTlX0w8BWeaFIhM+yBQ7v9nU1Q/im4dunNTjwyOte2yZ8X7o27nKvVqN
D9WCZaLHKz7DWRvGMQdJPvwWsM6hKfoztG43sAzndUPe7cPkWrcBWEYqRetF
dcPP2gKVka4vUDz3JE+d1wX+1t5XAie+gkZxQq0FrRMCbUeOmkYOg92y+1fv
xrQD2/ZmnQL7F0h0FcHmd63wlkmlpPRPQPZHRzXTvzlwy4lJ+TUyATHz8mqH
IjiwnwlGTvMTUBPvcDv6Tw4I682Mx7UmgWeU3bDgDAeU6mVW7nadhFnjIn3Y
yYFjdWWrZ19Nwv3Y3guDkhyQqTG09Lorgt6L+lv4oc2wp3wULd80Bdtst5S5
RLHhXeyBuQ07p+ANdV5K/Tobtpwofe2yfwok5ccu9oewwVQx1OrKuSnIuBJS
FevHBlkfObPO9Cnw1ggJW+HKhmopfY1E+WmovFn7c5sGG6ycd/9Q7Z6GsoD8
64Y5LFjOe5qoEDYLM830BKuqJqiwd7rYukMCVep2X9xs1AgVH0xCk4cWIItX
wvAnrxogchlFavNlKRTVsEHtH2Y9/JDINv5tThrRUo+7JBu8h0yNhyZkugyi
xoQQq+++A+OJtKcRprLowWKVY3Hba2Fiodoiw1Y5pJg84bdsUQ2cylGRngyS
R3tu0Jy3jlZBmqb51YwZBeRzapBKW1wFq0ryuDszFJHsfkHmvZWVUBGzktuj
roTyDvcwkpreQAzPND/puxLacEVO+uWBCljLGPdgvPkNBV8aDeRIlUOR38dq
y3BlJLwWufdxbxn0hLZr0w+qILfa5MMLq1/B6PiIRaKOKlLVTaZ7M0uBU8JS
4/NVkWa28qK5gRI4fL//6+N8NUSLZWm2SpYAk7Uw1DlIHdXXOEanbikGcuXh
BRecNVCe47N8mwv/wTvmpX2lOppIofvV1azyIohpSvMVkpooYvmnQDWdIpAY
mvN9UKiFgofdZCKDC+Eg/YyhWYg2Ou7A7esTFsAVu6RcctMy5B/oIdflWwC7
KAvMly7RQaIbpPu1znyY8b9AW83WQSa+wlpT33w42KTzoCpzObpgMhz29Ese
PIhrvrrdXxfVt5m3US/nQXrWbqu+NXooITWT666aB2bC0J9zEvpI9h/ji04H
c0H8stsw3FcfWYQeOOmR9BK0JQ/tsf+kj0R3rl0/yHsBGVOWR5WtDVBsgnZE
m/EL0M1U29eWYIBMZBwGJyKew49OZTuepCFy+8LWWcXPgZe16jKcE4Yojda7
aIVTDrRRrxZ31OH173SqqPwZ7D87d0TXgoJiFdbpa5o+gxrbvwbc71OQTxih
cTGbAJEfO3zpAwpKs3rtaptFwJrHOnp1cRSktF3h22wGAY8kCw+tT6Qg2tGF
zlGpBJz/QNYvSaMg+rWIF//GE2DoZZtT/YKCkKLHwEAEAeFh3wPMmBQUvNE5
qOwoAaUF1gp9DRQ0rCT7+ZY3AUP94dmJH7HZXYWeXgR4OGn1yLDw9wf8GHPu
BFgq76D2cHE9ut9pRzcCejJSN8T343XubeuhrQSoc7+yXAYoSMDfmVy7hQAX
WauzUkIKsuA98E7ahPfz/5hJ/4b7Uby+YJcVAbEbxerOoxQkmpvPzTEnoO7U
9sIFY7jeWJpMpCkBM4l3XUvHKUj2ivLrI6sIoM0ZRxmLcb85i+xUjAl4bMEw
6pqioIRkz8VDhgS0HCuvvD+D+y/Q38jUJ2Bx3CIvpzkKYhlDxRNdAtB7qnh+
Ht+3dWp6mA4B/wNIW2gS
          "]]}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{False, False},
       AxesOrigin->{2., 0.1},
       Frame->{{True, None}, {True, None}},
       FrameLabel->{
         FormBox["\"variance \[Nu]\"", TraditionalForm], 
         FormBox[
         "\"ex ante group influence \\!\\(\\*SuperscriptBox[\\(\[Chi]\\), \
\\(*\\)]\\)\"", TraditionalForm]},
       ImageSize->Medium,
       PlotLabel->FormBox["\"(ii)\"", TraditionalForm],
       PlotRange->{{0.25, 10}, {0.04904558167582629, 0.4999995888749654}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {555, -148.74611797498108`}, 
      ImageScaled[{0.5, 0.5}], {360, 222.49223594996212`}]}, {InsetBox[
      GraphicsBox[{{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVznk41HsfxvEZzCBKCJH9p8geIsV874xtGMoMCtWRLHXUiUjqiavjSJuQ
VJTi0HJSliJUZEm2OkUkWULhKco5FbINzzx/fK77ev3zvj5aAft5QSI0Gu2S
8P6/c4ukbG9uGCcXNy7pxWVPvFB71PvvhXGyoldX65SSJ6S5RhokZ5yc8VIQ
iWR6gnsk2/9swTjx/j7amDDBx/OOhI+rG8bJMVtvgVY7H83J/M8BU+Mk4Kme
vtZ5PhrpX8fbfSdIruVd3y4lPiRM/S2pkAniJ2V0ZJEkH8472g6FR0yQsHOv
LP1meGh49HBmceIEkc1R+rGtl4f6iASaU+UEGW1PrOq4zkPdkIb0Q41J4sMc
y+dZ81DVxKOuDk6S3Y56e/SiPHCa00T9+DZJRpKy5V7t8YBnE9HhLEwSav9B
9ZTtHvjUaLhyQvknEURKqfs7eGBpI1PXbdNP8mb8hoOJogcC6h/pCx7+JIoZ
r41dKjaD+VTbbHvyFJkKOaF3a/lmtNhlmBVnTpFQmcP35WU243KtjLlk3hQJ
nHO5lMrYDJPaOfMHdVMkauQ47+zQJmyt6Vi7eGaK1EoPWTAyNyGv6rR1ZeA0
ObL6/jY7mU1wr/gOtfUzhKraYX5L2h3PUrzmLZxmyDOpPFqxwA02QeWPuZ4z
5KVnCqdzzA0GS2Itj/42Q/JpNV6/tbpBwl/SsDtnhgwpSZTVXHJDraimUobU
LBE7IDbxWs8Nlq5uX5f1zpK/l1kUGPpxka9RlGc4Mkt6j6/KmnPnQmdcbrf9
z1nyJkY5sc+OC/mrnR8iZOeIopZeUa8+F/+O7ep87TBH5P0yL5bOuiIv9cjT
lII5EqrcL1Ge7Qq1rlsZ0scERIHr2T816YLX8aNy7EQBUY46U3jmqwtOmpgk
Hk4XkORQURWDQRd8jy+NHS4SkN7B339JbnVBo8mzXdUDAvKcGSM7etcFkcc/
GEWy50nmqZGJriAXvDBVq+1mLgj/s5lk9nMQ1+2/QU5+gfzzxwNrkU4OrBKu
lzhrLJDK245R4i0c5HQb3HpgtUAu2UynmlRzEJ2wPjF59wJJP1ewbzybA6pn
ize7eYEkqEXUbQzkoJLNOfjGkYYBaufJ/3xzRm/N3nORbjQ4C1gx9BFnCEhK
vrwnDavqM3pSPjjD1ubtkMdOGgwvy1x83uaMSosg75f/oeHi484VhaVCr/zd
qqGIBtqyt2s0Y4UWfzhdrkJH/LelU0Re2D/eo7BViw6DsuSKdmlhX5Rm9lOX
Dpe0W1LhTGGf5vTr2rV0vO/TV6yedkLlVHvXvU10PDgbdqS0X+jP/z7Oi6dj
Q3B603Sh0M/1YjPH6LgcVqZ4mu+EuRKbqeZxOiRZq4u3uDvB5trmA9MzdKQd
6rmpz3HCo7DoYG9xEXz8uDSyn+WEUoVG96WaIpD94NN0Wt8Jhb+EaMR7iKBT
eWlBm4gT/vxxozq0RARJxnFVomWOOL6CEt1wRBTbsh8+CTd0hIpJvp/LMVF4
Ff7gRug5osjOqsQnQRTtKmUR0TqO6NnjGhSdKoqExrFDZ1UdYVYe0fAgTxQ1
otGdA9KO6POsO2PaLYrw3j/mTcYcYJ0UtGyVjRjuzJ5PZBc74Cvtr5Wy82Kw
zc0LDXV0gHNl8fbrYgxMSjUHfrFzQM7hqgtWUgw821EdGUYcsPV7B2PHcgZy
Ksybfl/ngLqPjOE8Mway3le8adR3wJX6XTftQxhIvqGjMSTjAE6ihm50CwO+
fsNNNj32uKF0Sa8vhwmBw7vW/KP20CDnn9BvM1FkOE0kj9gjIzjZU6eQiW1D
obeCD9nj7IMTx/Y8ZsJwb7aP7gF7HORHd/5oY8JIjCdTHWIPh2SfkxIMcdxM
Nhnh8u0xxFT9tCZEHMNZv3DqDeyxcjL7VryBBBi/Fbe9GmAjsF5dzcBMAmJ3
zg3+2sfG9YuZqa3rJHA10aJSvJcNbav0GHVHCVSlCSodO9nQjE7ml/tL4L5T
QcO7l2yozMQsjF6QQJn0Ii9eBRtL5n238GmSSA39evdYOhuTDAVx7TeSeBNS
3B/pxUbIHXmxn1FS6D3rPGE9YIfs5UYxuXPSWG9XkyoWb4fVZUUdTrlLkJ6w
p2WDoR0qk3Q7BhSXwnC/QOT44EYkdRncu/JlKfw30F/MZm2ESfiEb/gTWXQb
38vcF7gRJaEvas3i5NDMs2otMNuIgdhOlTBvecTX5YZSIhvxfeKbaYbqMryT
vErTfwe0lbUovH+/DM16dWsSSoBtqYMj1+4poH6ae2pdCtDUwoh1jVJEgnMw
zTgc6NPdRo90VQIxcpsFD3jWdIhfrrocDy3aHHmWQNKr7F2f+pbjb2WjK2vU
AdrY/K60YmUUmauK/5cBeIf9qm14WAX6eb4dmQMER22vFPatX4Gyraluo48I
XCi6kcxiVQyEBJTnnCeY2xu5W79VFZrd50w54QTer1TTam6ogbLd95nvTpB2
4XWM/V51+ITfls01Ici56Wb50VgDgfernq6TJzD8FPvPPE0Tfs1S3uqTLEwX
9GrH7dIEzdj8TlgPCyoiW9zZLzVxraGqSLmWhdwZs51yVlp40ncnK/s2C+o3
FPhv07Vw90ur3bfzLHztlrPtEtGGiyat6EIMCwV1isy2IG1sfuxlWr6Hhbe8
mNJ39doITL/6WGMLC5775neom1IIvnfiQy+bhafWCcNbUyl8kw+uKDZjYSq0
NU4mjcJZnnLDbqGNr6lq1F+g0KrM7lcT+rJI8RbzDAppKZ9tT65h4cDzvsbF
2RQkMhff3G7KgvZ26zu1+RSSXOVXSRmzEHfsy37DJgq3/wxrDFvNQvl9K+mP
zRQiS+cydIUeG4z7K+MFBa9nRw+/12PBl6M8wGyhMDjsHMAV2kzOkTfQQcFI
J6dLT5eFgdwsi4uDFLKbBwMGdVhQ7Bhp4Q5TaNbqkM0UmithuU/0E4UnUUdf
8oUu3/viRtgoheGkzrCnFAspa6cVXb9TeDu70ydXm4X6EPti+jiFtkdJB/2E
nstI3lQ+QWH9CY8seaF3z688uXKaQsnoqRXxWixcMw3X6ZmhsPzdz302QrcH
VFSnzlE4Hfvl73FNFhZdEN/OmafgtihwQ77QaOBNLyxQWHLXtzRI6P8BIOoo
7Q==
          "]]}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{False, False},
       AxesOrigin->{2., 30.},
       Frame->{{True, None}, {True, None}},
       FrameLabel->{
         FormBox["\"variance \\!\\(\\*\\\"\[Nu]\\\"\\)\"", TraditionalForm], 
         FormBox[
         "\"ratio of group benefit to group spending \\!\\(\\*SuperscriptBox[\
\\(\[Psi]\\), \\(*\\)]\\)\"", TraditionalForm]},
       ImageSize->Medium,
       PlotLabel->FormBox["\"(iii)\"", TraditionalForm],
       PlotRange->{{0.25, 10}, {30.126552006851902`, 82.4102089537831}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {185, -446.2383539249432}, 
      ImageScaled[{0.5, 0.5}], {360, 222.49223594996212`}], InsetBox[
      GraphicsBox[{{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxNzltI0wEUBvD/pk6rmTpz3qbm1tDytsyUGeLAMNbUYIaKaKEiSs68Zhd0
yMjsSUNmuixbjqUgWmakD3ZRa7mU3DJnmTmGQ8TUcuVqMrcK4pw+OHz8ns4X
nF8mLCQTBJH65/623bt7liA0icS/OPLuuds5aJfiDsFOHpo23DxqGUezsy71
mRq1YEE7v8HoNgNu81mLmQjSgaN8D0ubExfAlUJK7/lxI1gUd7a2yrwKruJu
5oU1fANruY0qqvY7+LlayLpjNIPTRky8gPhtcMB8t4xavwN+msS/MJtM8MCT
oeLbGyRwgz/L4dgVB/A60cP2sDmCld5tofouCphtlndfDXMBm528nJmzu8BF
vZ6OP2v2gOU+EXUKKxV8cOih7oRiL+5pCtEZ6O7gpvmwgY41dFTFVnbFMw/w
45KpsWgJDWwQf/Arz/AEm7Y2OTLGPvDMkMZrcRGd02Jc7RzwAqs1TmJBDR2s
D8khVQu8wa/UF9OHGT64b1pesKJHExu2AumgLzij/Bwz/LIfuDah44E+3h98
kkWKcHNlgK2i6uJDWnTGNEM6qgwAS1vf1R0XBYK77qfGLkUGgcNXxF9txH6w
pf8zU1KA9iNnpiW9RSu2o/NoccHgQKVX+lw7ev0TLWGezAT3v6RTZgrRc8K6
Jx9V6NOltjOBHBZ4nHttOasF/atEK3GToiM7GUGqVvQt8mDmERm6clI/4SpH
M3O5vWN9aEn9Wlm4Gj38KI669Aa9YZT0yKbQ2XxfA0WDjqYlCw06tEFxN+am
EU3XrWpSltEpLrGlDiv//RNNKcu/oG8ctdAFJrSq6Pgg6QfaKms+NbyFLrax
r7Mt6E5OxYGFbfT7/JEXLVb07lbnXL4NzXsttNjt6N9NPxJM
          "]]}, 
        {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ/V98+VUGhgv2iyqvnuQUP7N/usQbkxPy1+B8fUnD
Kf32d+D8oiC21XmHn8D5OebxNcXfXsH5xZYfE7VbP8D5Fy3bj/Fc/Azn7z8Z
pDz3yTc432/PJwdZq19wvuyt5TN5Gv7C+XudPUuvujE4wPmnNermvGOE81ul
lZmtq5jh/LcMK1QF/7HA+UvFp2vcX8QG56t+W7C8RZsDzv/GKsqudJUTzk9f
LczyvYwbzl8goVu7+A8PnK+5fcM198V8CPf0qV97KCYA5/fd0t44+w2Cr1/4
NapwnyCcvyX7zCGjJiE4/2HdDamCMGE4/9PXjwYzZUTg/MvbL4jeu4fgx0x6
8mreRlE4/+QF1jrvMjE4/756DGOJtzicf/RkefAOGQmE+84vSH5xH8FnePcv
ecpmSTg/rCBLSadSCs6vsZ29/r6VNJzvpcyoy88rA+f/ySnJ0LqI4Iedl5ly
cKksnD9l6qValxw5OH/RMl+zx3rycL7Oi7r3/xgU4Pyf6+4qNSUj+FJM4X7O
5xD8xb+MEoXMFeF8uaWiwddnIPhvbwvZ3mJSgvPXHRFju5yK4F8Pqt128xiC
H5L7L07OQBnOP2zZ9ixiEoLf1PAmX+ckgu9wPOjn//8IPgAAW5sB
          "]]}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{False, False},
       AxesOrigin->{2., 0},
       Frame->{{True, None}, {True, None}},
       FrameLabel->{
         FormBox["\"variance \[Nu]\"", TraditionalForm], 
         FormBox[
         "\"net electoral impact \
\\!\\(\\*\\nStyleBox[SuperscriptBox[\\\"n\\\", \\n  RowBox[{\\\"x\\\", \
\\\"*\\\", \\\" \
\\\"}]],\\nFontSlant->\\\"Italic\\\",\\nFontColor->RGBColor[0, 0, 1]]\\) and  \
\\!\\(\\*\\nStyleBox[SuperscriptBox[\\\"n\\\", \\n  RowBox[{\\\"y\\\", \
\\\"*\\\"}]],\\nFontSlant->\\\"Italic\\\",\\nFontColor->RGBColor[1, 0, 0]]\\)\
\"", TraditionalForm]},
       ImageSize->Medium,
       PlotLabel->FormBox["\"(iv)\"", TraditionalForm],
       PlotRange->{{0.25, 10}, {-0.2194530711667087, 0.}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {555, -446.2383539249432}, 
      ImageScaled[{0.5, 0.5}], {360, 222.49223594996212`}]}}, {}},
  ContentSelectable->True,
  ImageSize->{752, 606.9844718999243},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{3.4854576105833616`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1920, 1180},
WindowMargins->{{1272, Automatic}, {Automatic, -63}},
FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 314, 7, 137, "Title"],
Cell[884, 31, 271, 9, 10, "Text"],
Cell[1158, 42, 87, 1, 52, "Input"],
Cell[CellGroupData[{
Cell[1270, 47, 366, 6, 77, "Subtitle"],
Cell[CellGroupData[{
Cell[1661, 57, 173, 2, 71, "Section"],
Cell[1837, 61, 373, 6, 29, "Text"],
Cell[CellGroupData[{
Cell[2235, 71, 385, 9, 67, "Input"],
Cell[2623, 82, 237, 5, 47, "Output"]
}, Open  ]],
Cell[2875, 90, 330, 6, 29, "Text"],
Cell[CellGroupData[{
Cell[3230, 100, 469, 13, 31, "Input"],
Cell[3702, 115, 386, 11, 47, "Output"]
}, Open  ]],
Cell[4103, 129, 189, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[4317, 135, 147, 3, 31, "Input"],
Cell[4467, 140, 591, 19, 49, "Output"]
}, Open  ]],
Cell[5073, 162, 112, 1, 29, "Text"],
Cell[5188, 165, 147, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[5360, 171, 145, 3, 31, "Input"],
Cell[5508, 176, 407, 14, 49, "Output"]
}, Open  ]],
Cell[5930, 193, 120, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[6075, 198, 735, 23, 49, "Input"],
Cell[6813, 223, 674, 22, 37, "Output"]
}, Open  ]],
Cell[7502, 248, 194, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[7721, 256, 398, 11, 81, "Input"],
Cell[8122, 269, 251, 8, 33, "Output"]
}, Open  ]],
Cell[8388, 280, 120, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[8533, 285, 578, 17, 49, "Input"],
Cell[9114, 304, 622, 20, 37, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9773, 329, 351, 9, 59, "Input"],
Cell[10127, 340, 231, 7, 33, "Output"]
}, Open  ]],
Cell[10373, 350, 93, 1, 31, "Input"],
Cell[10469, 353, 308, 5, 29, "Text"],
Cell[10780, 360, 1190, 37, 155, "Input"],
Cell[11973, 399, 495, 8, 29, "Text"],
Cell[CellGroupData[{
Cell[12493, 411, 676, 18, 72, "Input"],
Cell[13172, 431, 694, 24, 93, "Output"]
}, Open  ]],
Cell[13881, 458, 233, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[14139, 466, 159, 3, 52, "Input"],
Cell[14301, 471, 121, 2, 30, "Output"]
}, Open  ]],
Cell[14437, 476, 273, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[14735, 485, 2000, 54, 73, "Input"],
Cell[16738, 541, 3145, 92, 142, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19920, 638, 1308, 38, 49, "Input"],
Cell[21231, 678, 2835, 84, 142, "Output"]
}, Open  ]],
Cell[24081, 765, 275, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[24381, 774, 155, 3, 52, "Input"],
Cell[24539, 779, 119, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24695, 786, 1255, 37, 49, "Input"],
Cell[25953, 825, 1162, 35, 56, "Output"]
}, Open  ]],
Cell[27130, 863, 388, 7, 29, "Text"],
Cell[CellGroupData[{
Cell[27543, 874, 757, 22, 72, "Input"],
Cell[28303, 898, 24274, 634, 607, "Output"]
}, Open  ]],
Cell[52592, 1535, 16, 0, 29, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52645, 1540, 200, 4, 71, "Section"],
Cell[52848, 1546, 379, 7, 29, "Text"],
Cell[53230, 1555, 87, 1, 52, "Input"],
Cell[53320, 1558, 1740, 45, 31, "Input"],
Cell[55063, 1605, 298, 8, 52, InheritFromParent],
Cell[CellGroupData[{
Cell[55386, 1617, 1962, 48, 52, "Input"],
Cell[57351, 1667, 780, 16, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58168, 1688, 4593, 121, 118, "Input"],
Cell[62764, 1811, 13975, 242, 294, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[76776, 2058, 4835, 123, 119, "Input"],
Cell[81614, 2183, 11242, 197, 294, "Output"]
}, Open  ]],
Cell[92871, 2383, 346, 8, 29, "Text"],
Cell[CellGroupData[{
Cell[93242, 2395, 1412, 40, 31, "Input"],
Cell[94657, 2437, 330, 8, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[95024, 2450, 1509, 41, 31, "Input"],
Cell[96536, 2493, 408, 10, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[96981, 2508, 4583, 118, 98, "Input"],
Cell[101567, 2628, 18898, 326, 294, "Output"]
}, Open  ]],
Cell[120480, 2957, 204, 6, 107, "Input"],
Cell[120687, 2965, 148, 2, 72, "Input"],
Cell[CellGroupData[{
Cell[120860, 2971, 4396, 115, 98, "Input"],
Cell[125259, 3088, 10572, 187, 294, "Output"]
}, Open  ]],
Cell[135846, 3278, 142, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[136013, 3283, 756, 17, 31, "Input"],
Cell[136772, 3302, 55180, 948, 710, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[191989, 4255, 295, 7, 52, "Input"],
Cell[192287, 4264, 166, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[192490, 4271, 646, 16, 31, "Input"],
Cell[193139, 4289, 315, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[193491, 4299, 698, 17, 31, "Input"],
Cell[194192, 4318, 262, 3, 30, "Output"]
}, Open  ]],
Cell[194469, 4324, 271, 9, 10, "Text"],
Cell[194743, 4335, 146, 2, 72, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[194938, 4343, 243, 4, 49, "Subtitle"],
Cell[CellGroupData[{
Cell[195206, 4351, 135, 1, 71, "Section"],
Cell[195344, 4354, 508, 8, 29, "Text"],
Cell[CellGroupData[{
Cell[195877, 4366, 758, 24, 31, "Input"],
Cell[196638, 4392, 487, 15, 49, "Output"]
}, Open  ]],
Cell[197140, 4410, 268, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[197433, 4419, 1227, 31, 72, "Input"],
Cell[198663, 4452, 1536, 48, 118, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[200236, 4505, 1098, 31, 31, "Input"],
Cell[201337, 4538, 1685, 52, 95, "Output"]
}, Open  ]],
Cell[203037, 4593, 180, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[203242, 4599, 365, 10, 31, "Input"],
Cell[203610, 4611, 695, 21, 49, "Output"]
}, Open  ]],
Cell[204320, 4635, 176, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[204521, 4641, 146, 3, 31, "Input"],
Cell[204670, 4646, 697, 21, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[205404, 4672, 900, 28, 49, "Input"],
Cell[206307, 4702, 572, 19, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[206916, 4726, 748, 22, 71, "Input"],
Cell[207667, 4750, 582, 19, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[208286, 4774, 848, 26, 49, "Input"],
Cell[209137, 4802, 654, 21, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[209828, 4828, 125, 2, 31, "Input"],
Cell[209956, 4832, 581, 19, 52, "Output"]
}, Open  ]],
Cell[210552, 4854, 187, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[210764, 4862, 878, 26, 49, "Input"],
Cell[211645, 4890, 947, 25, 37, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[212629, 4920, 449, 11, 40, "Input"],
Cell[213081, 4933, 341, 11, 33, "Output"]
}, Open  ]],
Cell[213437, 4947, 120, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[213582, 4952, 149, 3, 31, "Input"],
Cell[213734, 4957, 455, 15, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[214226, 4977, 657, 21, 49, "Input"],
Cell[214886, 5000, 376, 12, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[215299, 5017, 494, 15, 71, "Input"],
Cell[215796, 5034, 422, 13, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[216255, 5052, 606, 19, 49, "Input"],
Cell[216864, 5073, 387, 12, 49, "Output"]
}, Open  ]],
Cell[217266, 5088, 184, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[217475, 5096, 539, 16, 49, "Input"],
Cell[218017, 5114, 973, 27, 37, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[219027, 5146, 512, 12, 40, "Input"],
Cell[219542, 5160, 321, 10, 33, "Output"]
}, Open  ]],
Cell[219878, 5173, 196, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[220099, 5181, 2457, 69, 73, "Input"],
Cell[222559, 5252, 5647, 152, 181, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[228243, 5409, 1834, 53, 49, "Input"],
Cell[230080, 5464, 5249, 143, 181, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[235366, 5612, 2304, 67, 52, "Input"],
Cell[237673, 5681, 6010, 160, 150, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[243720, 5846, 1836, 53, 49, "Input"],
Cell[245559, 5901, 5695, 152, 150, "Output"]
}, Open  ]],
Cell[251269, 6056, 341, 10, 29, "Text"],
Cell[251613, 6068, 3932, 102, 52, "Input"],
Cell[255548, 6172, 1232, 32, 92, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[256817, 6209, 139, 2, 71, "Section"],
Cell[256959, 6213, 222, 3, 29, "Text"],
Cell[257184, 6218, 276, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[257485, 6227, 1991, 52, 31, "Input"],
Cell[259479, 6281, 868, 15, 21, "Message"],
Cell[260350, 6298, 887, 16, 21, "Message"],
Cell[261240, 6316, 868, 15, 21, "Message"],
Cell[262111, 6333, 823, 13, 21, "Message"],
Cell[262937, 6348, 850, 15, 21, "Message"],
Cell[263790, 6365, 837, 15, 21, "Message"],
Cell[264630, 6382, 871, 16, 21, "Message"],
Cell[265504, 6400, 815, 13, 21, "Message"],
Cell[266322, 6415, 577, 13, 30, "Output"]
}, Open  ]],
Cell[266914, 6431, 136, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[267075, 6438, 1843, 50, 31, "Input"],
Cell[268921, 6490, 812, 15, 21, "Message"],
Cell[269736, 6507, 813, 15, 21, "Message"],
Cell[270552, 6524, 834, 16, 21, "Message"],
Cell[271389, 6542, 768, 13, 21, "Message"],
Cell[272160, 6557, 795, 15, 21, "Message"],
Cell[272958, 6574, 796, 15, 21, "Message"],
Cell[273757, 6591, 795, 15, 21, "Message"],
Cell[274555, 6608, 760, 13, 21, "Message"],
Cell[275318, 6623, 467, 12, 30, "Output"]
}, Open  ]],
Cell[275800, 6638, 222, 3, 29, "Text"],
Cell[276025, 6643, 275, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[276325, 6652, 2301, 57, 31, "Input"],
Cell[278629, 6711, 742, 13, 21, "Message"],
Cell[279374, 6726, 761, 14, 21, "Message"],
Cell[280138, 6742, 741, 13, 21, "Message"],
Cell[280882, 6757, 697, 11, 21, "Message"],
Cell[281582, 6770, 724, 13, 21, "Message"],
Cell[282309, 6785, 710, 13, 21, "Message"],
Cell[283022, 6800, 745, 14, 21, "Message"],
Cell[283770, 6816, 691, 11, 21, "Message"],
Cell[284464, 6829, 376, 10, 30, "Output"]
}, Open  ]],
Cell[284855, 6842, 274, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[285154, 6851, 2245, 55, 31, "Input"],
Cell[287402, 6908, 1258, 21, 21, "Message"],
Cell[288663, 6931, 1259, 21, 21, "Message"],
Cell[289925, 6954, 1280, 22, 21, "Message"],
Cell[291208, 6978, 1215, 19, 21, "Message"],
Cell[292426, 6999, 1241, 21, 21, "Message"],
Cell[293670, 7022, 1242, 21, 21, "Message"],
Cell[294915, 7045, 1242, 21, 21, "Message"],
Cell[296160, 7068, 1205, 19, 21, "Message"],
Cell[297368, 7089, 909, 18, 30, "Output"]
}, Open  ]],
Cell[298292, 7110, 123, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[298440, 7115, 4767, 122, 118, "Input"],
Cell[303210, 7239, 15997, 279, 296, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[319244, 7523, 4798, 122, 118, "Input"],
Cell[324045, 7647, 15615, 268, 296, "Output"]
}, Open  ]],
Cell[339675, 7918, 136, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[339836, 7923, 4441, 118, 98, "Input"],
Cell[344280, 8043, 14293, 251, 296, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[358610, 8299, 4427, 118, 98, "Input"],
Cell[363040, 8419, 15374, 268, 385, "Output"]
}, Open  ]],
Cell[378429, 8690, 140, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[378594, 8695, 417, 12, 31, "Input"],
Cell[379014, 8709, 62190, 1070, 750, "Output"]
}, Open  ]],
Cell[441219, 9782, 499, 7, 31, "Input"],
Cell[441721, 9791, 271, 9, 10, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[442041, 9806, 246, 4, 49, "Subtitle"],
Cell[CellGroupData[{
Cell[442312, 9814, 116, 1, 71, "Section"],
Cell[442431, 9817, 439, 8, 29, "Text"],
Cell[442873, 9827, 131, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[443029, 9832, 657, 19, 72, "Input"],
Cell[443689, 9853, 677, 24, 93, "Output"]
}, Open  ]],
Cell[444381, 9880, 187, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[444593, 9888, 1979, 55, 73, "Input"],
Cell[446575, 9945, 3129, 92, 142, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[449741, 10042, 1327, 39, 49, "Input"],
Cell[451071, 10083, 2785, 83, 142, "Output"]
}, Open  ]],
Cell[453871, 10169, 198, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[454094, 10177, 96, 2, 31, "Input"],
Cell[454193, 10181, 92, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[454322, 10187, 1232, 37, 49, "Input"],
Cell[455557, 10226, 1135, 34, 56, "Output"]
}, Open  ]],
Cell[456707, 10263, 273, 7, 29, "Text"],
Cell[CellGroupData[{
Cell[457005, 10274, 859, 25, 31, "Input"],
Cell[457867, 10301, 8240, 233, 142, "Output"]
}, Open  ]],
Cell[466122, 10537, 179, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[466326, 10545, 382, 10, 72, "Input"],
Cell[466711, 10557, 7290, 208, 142, "Output"]
}, Open  ]],
Cell[474016, 10768, 694, 11, 47, "Text"],
Cell[CellGroupData[{
Cell[474735, 10783, 3985, 109, 72, "Input"],
Cell[478723, 10894, 12754, 243, 139, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[491526, 11143, 98, 1, 71, "Section"],
Cell[491627, 11146, 93, 1, 31, "Input"],
Cell[491723, 11149, 232, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[491980, 11158, 7967, 194, 143, "Input"],
Cell[499950, 11354, 16172, 295, 622, "Output"]
}, Open  ]],
Cell[516137, 11652, 272, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[516434, 11661, 7611, 189, 143, "Input"],
Cell[524048, 11852, 15500, 283, 622, "Output"]
}, Open  ]],
Cell[539563, 12138, 213, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[539801, 12146, 7616, 189, 143, "Input"],
Cell[547420, 12337, 12945, 242, 622, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
